Ro ON Tee os. | 
H. LILEN : J. BÉNARD | 
| 
| 


PRATIQUE | 





L'ORIC-ATMOS 


| 36 PROGRAMMES 











| ÉDITIONS RADIO 


CURE RAT. es pr RE RE D ET ns + Fa né le. - élit mm. 


nr 





. ( LOF 


EE 
——_—_ 





— 


CLOSE 






MENU 














EE  —— 





er L 








SE. C.F. 
Éditions Radio 


H. LILEN - J. BÉNARD 





PRATIQUE 


L'ORIC-ATMOS 


36 PROGRAMMES 





S. E. C. F. 


ve 
Editions Radio 


9, RUE JACOB - 75006 PARIS 
TEL. 329.63.70 


ATTENTION ! 
Une erreur peut en cacher une autre. 
Le message d’erreur signalé par votre micro-ordinateur 


pour la ligne 250, par exemple, d’un programme 
ne signifie pas forcément que cette ligne est mauvaise. 


C'est peut-être la ligne 120 qu’il faut corriger, ou 
tout simplement il y a incompatibilité entre vos 
données et votre programme. 
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AVANT-PROPOS 


Décidément, les Anglais nous surprendront toujours ! Ce sont eux qui, en effet, 
ont inventé ces merveilleux petits micro-ordinateurs dont l’Oric est le type le plus 
élaboré, peut-être, et qui connaissent un succès amplement mérité. Grâce à leur fai- 
ble prix, ces machines ont révélé ce qu'était la micro-informatique à un très vaste 
public. Des centaines de milliers de personnes, aujourd'hui, les emploient aussi 
bien pour leurs applications professionnelles ou familiales que pour jouer ou 
apprendre. Pourquoi pas vous ? 

Telle est probablement ce à quoi vous songez si vous avez commencé à feuilleter ce 
livre : il vous est destiné si vous êtes totalement profane en informatique, si vous 
n'avez jamais manipulé un micro-ordinateur, si vous ignorez tout de la program- 
mation et du Basic et si même, de surcroît, vous redoutez ces étranges petites 
machines dont on dit qu’elles sont capables de suppléer l’homme dans ses fonctions 
intellectuelles. 

Nous allons vous prouver que vous pouvez mettre le micro-ordinateur à votre ser- 
vice bien plus aisément que vous ne l’imaginez. Pour cela, nous allons vous propo- 
ser : 


e De faire la connaissance de l’Oric dans sa version la plus évoluée, née au début de 
1984, l’Oric-Atmos, pour commencer : comment le brancher, le mettre en service, 
comment aussi entamer le « dialogue » avec lui. 


e Puis, nous vous montrerons aussitôt comment utiliser des cassettes de program- 
mes (jeux, enseignement, gestion.) avec un banal magnétophone. Dès lors, et sans 
même qu'il vous soit besoin d'aller plus avant, vous serez à même d'exploiter 
immédiatement ce micro-ordinateur (sans donc avoir à apprendre la programma- 
tion). 


e Mais nous vous engageons vivement à vous initier à cet art, dans un premier but 
de démystification. Vous constaterez que la programmation devient très vite l’un 
des « jeux » les plus passionnants qui soit. Que les informaticiens professionnels 
nous pardonnent pour ce mot de jeux ! Pour notre excuse, ajoutons que les ambi- 
tions de ce livre sont plus modestes et qu'il n'entend pas, en quelques pages, faire 
du lecteur un analyste-programmeur de métier. Nous allons toutefois très rapide- 
ment vous mettre en demeure de concevoir vos propres programmes dans ce lan- 
gage appelé le « Basic », qui est, aujourd’hui, le plus répandu. 


Pour cela, laissez-vous simplement guider par les chapitres qui suivent. Toutes les 
notions nouvelles vont vous être présentées à l’aide d'exemples concrets et d’exerci- 
ces (donnés avec les résultats que vous devez obtenir), pour que vous les assimiliez 
sans peine et sans effort inutile de mémoire. Laissez-vous aussi guider par votre 
fantaisie et votre imagination et n'hésitez pas à créer des variantes des programmes 
que nous vous proposerons, ce que vous serez certainement tenté de faire. Les 
auteurs ne peuvent que Vous } encourager. 
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Le chapitre I est destiné à vous faire faire la connaissance de l’Oric-Atmos, sembla- 
ble à l’Oric — 1 qui lui a précédé, mais pourtant très différent (clavier « mécani- 
que », par exemple). De toutes façons, tous nos exercices et programmes « tourne- 
ront » indifféremment sur l’un et sur l’autre, à l’exception de quelques cas que 
nous vous signalerons. Le chapitre II vous montre comment utiliser un magnéto- 
phone et des cassettes, pré-enregistrées (jeux, programmes divers) ou non. Le cha- 
pitre III commence à vous enseigner l’art de la programmation en Basic. Enfin, les 
chapitres IV à VIII présentent chacun une partie du langage avec de nombreux 
exemples brefs qui mettent l'accent sur ce qui est nouveau. 

A la fin de ces chapitres, vous trouverez des programmes qui mettent en application 
ces nouveautés. Leur but est de vous donner des idées ; amusez-vous à les essayer, 
puis modifiez-les. 

Enfin, le dernier chapitre regroupe les programmes de récapitulation : c’est une 
espèce de révision qui vous est proposée ! Selon votre tempérament, vous adopte- 
rez sans doute l’une de ces deux démarches : commencer par lire les explications et 
taper les exemples simples pour tous les chapitres, avant de passer aux programmes 
d'applications, ou bien tout lire d’une seule traite, en faisant quand même une 
pause casse-croûte de temps en temps ! 

Une question importante se pose toutefois : vous faut-il obligatoirement disposer 
d’un Oric pour aborder l'étude de ce livre ? Il est évident que c’est préférable car 
alors, vous pourrez directement expérimenter sur machine et acquérir l’indispensa- 
ble pratique de l’informatique. Mais ce n’est nullement une condition impérative 
pour une première lecture rapide, celle qui doit vous permettre de vous tester vous- 
même et de vous rassurer pleinement ; elle vous incitera très certainement à fran- 
chir le pas et à investir dans l’achat d’une telle machine. Ce dont vous aurez tout 
lieu de vous féliciter par la suite. 


CHAPITRE I 
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Ce premier chapitre est destiné à vous présenter l’Atmos. Plus généralement d'’ail- 
leurs, on va vous exposer ce qu'est un micro-ordinateur personnel et de quoi se 
compose un « système informatique ». On vous montrera aussi comment connec- 
ter l’Atmos et comment entamer (tout juste !) le dialogue avec lui. 


Principaux thèmes étudiés 


La micro-informatique recourt à un vocabulaire qui lui est propre. Souvent à base d’anglais, d’ailleurs. 
Démystifier l'informatique revient souvent à démystifier ce vocabulaire, pour commencer. Nous allons 
nous y employer dans ce livre en vous présentant progressivement tous les termes qu’il importe de connafî- 


tre. 


Ne les apprenez pas par cœur : si vous hésitez sur la signification d’un mot, reportez-vous au paragraphe 
qui le définit. Pour cela, nous avons placé, en marge du texte, les termes que nous appellerons des 
« mots-clés ». Au début de chaque chapitre, nous vous en donnerons la liste dans l’ordre où ils apparais- 
sent. En fin d’ouvrage, tous ces mots-clés sont regroupés par ordre alphabétique, avec l’indication de la 
page où vous les trouverez cités. 
Voici la liste des mots-clés pour ce premier chapitre ; ne vous laissez pas impressionner par une longueur 


qui n’est qu’apparente ! 


Branchement de l’Oric 
Alimentation 

Prise Péritel 

Mise en service 
QWERTY 

AZERTY 

Curseur 

Effacement arrière 
DEL 

SYNTAX ERROR 
Répétition des touches 
SHIFT 

Langages 


BRANCHEMENT 


DE L'ORIC 





Basic 

Basic Microsoft 
Chiffre zéro et lettre O 
Microprocesseur 
Mémoires internes 
Mémoires centrales 
Mémoires externes 
Mémoires périphériques 
Cellules mémoires 
Octet 

Caractère 

Byte | 
Mémoires vives 





1. L’Oric et ses branchements 


RAM 

Mémoires mortes 
ROM 

Volatilité des mémoires 
Ligne physique 
Ligne logique 
CTRL 
Minuscules 
Majuscules 
CTRL/T 

CAPS 

Format de l’écran 
RETURN 


Oui, le micro-ordinateur Oric, c’est ce clavier que représente notre photo. Ce bloc, 
mesurant environ 28 cm sur 18 cm, a la forme d’un pupitre de 2 cm d’épaisseur sur 
l’avant et 6 sur l’arrière ; il contient tous les circuits électroniques qui font un ordi- 


nateur. 


Afin de le faire fonctionner, il faut l’alimenter en énergie électrique, d’une part, le 
connecter à un récepteur de télévision pour obtenir des images, d’autre part. 


ALIMENTATION 


PRISE 
PERITEL 
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Gros plan sur l’Oric « Atmos » : son clavier 


Ce micro-ordinateur a besoin d’une tension continue de 9 volts ; celle-ci lui sera 
fournie par un petit bloc d’alimentation qu’on connectera directement sur le sec- 
teur (220 volts alternatifs) ; il en sort un câble terminé par un connecteur coaxial 
femelle : insérez-le dans la prise mâle située à l’arrière-droit du micro-ordinateur. 


La connexion à un téléviseur n’est guère plus complexe ; utilisez, de préférence, un 
récepteur couleur si vous voulez bénéficier de toutes les facultés de votre machine. 
Le branchement s’effectue via la prise « Péritel » (mot provenant de péri-télévi- 
sion), cette prise étant obligatoire en France sur tous les récepteurs, depuis 1981. 
C’est une prise à deux rangées de connexions, femelles sur le téléviseur, de forme 
allongée. Saisissez-vous du câble spécial qui vous est livré avec l’Oric et qui se ter- 
mine par une fiche mâle correspondante ; enfichez celle-ci. L'autre extrémité de ce 
câble se termine par une prise ronde, mâle, à 5 broches (dite « aux normes DIN »). 
Insérez-la dans le connecteur femelle correspondant, situé à l’arrière gauche du 
micro-ordinateur. 


Votre micro-ordinateur va ainsi fournir les signaux d’image (rouge, vert et bleu) et 
de synchronisation à votre téléviseur, mais celui-ci doit basculer en mode réception 
vidéo. Pour cela, il faudra encore amener une tension de 12 volts à la fiche Péritel, 
à l’aide d’un second bloc d’alimentation, plus petit et ajustable. Il s’agit d’un 
« adaptateur », à connecter également au secteur 200 V (prévoyez une prise multi- 
ple !) ; ajustez l’ergot, qui glisse latéralement sur 12 V (généralement, 6 V suffi- 
sent ; vous n’avez rien à redouter si vous essayez diverses valeurs : votre téléviseur 
ne craint rien car elles seront de toutes façons inférieures à 12 V. Si elles sont trop 
faibles, toutefois, la commutation interne ne se fera pas et vous n’obtiendrez pas 
d’image de l’Oric). L’autre extrémité du câble de l’adaptateur se termine par une 
prise en croix, dont l’intérêt est d’offrir quatre fiches de connexion. Choisissez celle 
qui s’insère normalement sur la prise femelle située à l’arrière du connecteur mâle 
Péritel : c’est la plus fine. 


La prise mâle marquée « UHF », située à gauche, à l’arrière du micro-ordinateur, 
sert à attaquer la fiche antenne d’un récepteur de télévision aux normes « PAL ». 
(Les normes françaises sont appelées SECAM). Ignorez-la donc, et ce d’autant plus 
allègrement que le branchement Péritel fournit une image de bien meilleure qualité. 
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Attention : cette prise 
ronde aussi sert 
au magnétophone ! 













Prise mêle 
d'alimentation 






Sortie pour l'attaque 
d'un téléviseur 














Fiche DIN 


Ignorez cette 
mêle 


prise 









d'alimentation 


Pour ajuster la 
tension 12 V 







Adaptateur 














Vous pourriez même ignorer 
l'adaptateur secteur et connecter 
ici une pile 9 V 


A enficher sur la 
fiche Péritel femelle 
du téléviseur 














Comment brancher l’Oric pour le mettre en service. 


A moins que vous ne disposiez d’un récepteur de télévision « multistandard », 
acceptant le PAL et ne possédant pas de prise Péritel, ou encore d’un récepteur 
SECAM sans prise Péritel : dans ce cas, il vous faudra. un boîtier de conversion en 
plus, ce que votre vendeur sera certainement très heureux de vous fournir 
(consultez-le). 

Cela étant fait, vous voici enfin prêt à faire naître l’image. 


2. Mise en service 


Notez, tout d’abord, que l’Oric ne possède pas d’interrupteur de mise en service : 
vous débrancherez simplement ses blocs d’alimentation et adaptateur pour le 
MISE EN déconnecter. 

SERVICE Mettez donc le téléviseur en marche, sur n’importe quelle station (625 lignes), peu 
importe : la commutation Péritel a priorité. Si, à ce moment, vous alimentez 
l’Oric, vous allez voir apparaître sur l’écran une image quelconque pendant un 
court instant, puis le message suivant en noir sur fond blanc : 
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Hors cadre, ces lettres indiquent que tout 
ce que vous frapperez viendra en «capitales», 
c'est-à-dire en majuscules. 















Ce cadre est censé 
représenter la partie claire de 
votre écran de 

télévision, telle qu’elle 
est proposée par l'Oric 















ORIC EXTENDED BASIC V1.1 
c 1983 TANGERINE 











Traduction : 
«Basic étendu de l‘Oric, 
version 1. 1. Copyright 
1983 Tangerine» 







37631 BYTES FREE 










Ready 


















Ici, ce petit pavé 
clignote. On l'appelle 
un «curseur» 


«37631 octets 
disponibles» 







(Nous ne savons pas comment 
vous représenter le clignotement 
sur le papier) 






Si vous n’obtenez pas ce message au bout de 
quelques secondes, c’est peut-être que vous 
avez omis d’effectuer un branchement. 
Vérifiez bien tout cela ; il n’y a aucune 
raison pour que cela ne fonctionne pas ! 


Qu'est-ce que tout cela peut-il bien signifier ? Et bien, tout d’abord, le « langage » 
employé par l’Oric se présente poliment : « Je suis la version 1.1 du Basic étendu de 
l’Oric ». Puis, le micro-ordinateur vous annonce de quelle « capacité mémoire » 
vous disposez. Enfin, il s’affirme prêt à vous servir. Si le message que vous lisez est 
différent, ne vous en inquiétez pas : on va voir ce que tout cela signifie. 


Réglez donc le contraste et la luminosité du téléviseur afin d’obtenir une image 
agréable à regarder, puis examinez le clavier. Il comporte cinq rangées de touches 
marquées de divers symboles. 


Considérez d’abord la rangée supérieure des touches a/phabétiques. De gauche à 
droite, elle commence par les lettres Q, W,E, R, T, Y, etc. ; si, maintenant, vous 
comparez cette distribution à celle d’une machine à écrire courante, vous verrez 
qu’à cet emplacement, la machine à écrire dispose des touches A, Z,E,R, T, Y, 
etc. 


La distribution appelée AZERTY correspond 
aux normes françaises, la distribution 
QWERTY, aux normes anglaises ou 
américaines. 






QWERTY 
AZERTY 





CURSEUR 






le B … 


EFFACEMENT 
ARRIÈRE 





Vous venez de frappez 
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En fait, les différences sont minimes mais capables de gêner une dactylo experte (ou 
un expert du clavier). Si vous êtes aussi peu adroit au clavier que l’auteur, vous 
n’aurez aucun mal à vous faire au QWERT Y. Afin de vous exercer, frappez donc le 
mot BONJOUR (qui n’a, ici, rigoureusement rien à voir avec l’informatique pure) 
en examinant ce qui se passe sur l’écran. Tout d’abord, le B se place sur la ligne 
marquée par le curseur, en 3° position, puis le curseur passe aussitôt à la position 
suivante : 










Ces tirets indiquent 
qu'on ne vous montre 
qu'un «extrait» de l’écran 









… Et le curseur 





Frappez donc BONJOUR au complet, ce qui donne : 





Remarquez qu’à chaque frappe, le curseur se 
déplace d’un cran vers la droite : il marque 
l'emplacement où apparaitra le caractère 
suivant. 


Si vous vous trompez en frappant un caractère, appuyez sur la touche marquée 
DEL (à droite du clavier) ; elle ramène le curseur d’un pas en arrière et ce curseur 
efface le caractère qu’il recouvre. Vous pouvez dès lors en frapper un nouveau. 


DEL est une touche d’espacement arrière 
avec effacement. 


Comme sur toutes les machines à écrire, le clavier de l’Oric dispose d’une barre 
d’espacement ; c’est la longue barre horizontale du bas. Elle sert à créer des 
« blancs », des espaces. Expérimentez-là. 


Ne vous privez pas de frapper sur le clavier, 
même en mélangeant ou combinant des 
touches. Votre Oric ne craint rien (si vous 
frappez avec une force « raisonnable ») ; 
vous ne provoquerez pas de panne ! 


Cependant, il réagira parfois et affichera des messages bizarres, du genre : 
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SYNTAX ERROR 


REPETITION 


DES TOUCHES 





SHIFT 


LANGAGES 


BASIC 
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Traduction : 
«Erreur de 
Te Syntaxe)» p— — 


?SYNTAX ERROR 





C’est tout simplement parce que l’ordinateur n’a pas compris où vous vouliez en 
venir. Forcément, vous ne respectez pas ses commandes normales (qu’on va vous 
enseigner plus loin). 


À nouveau, ces messages ne nuisent en aucun 
cas à l’Oric et vous ne pouvez le mettre en 
panne ainsi. 


Remarquez que, si vous maintenez une touche enfoncée, son caractère va apparaî- 
tre une fois mais, après un court instant, il va se répéter en permanence : les tou- 
ches sont à répétition. 

Vous avez aussi remarqué que certaines touches sont marquées d’un double 
symbole, par exemple un chiffre tel que le 1 et, à côté, un point d’exclamation. Si 
vous frappez sur cette touche (le 1 : en haut et à gauche), vous obtenez un 1 sur 
l’écran. Mais comme sur une machine à écrire, vous pouvez obtenir le second 
caractère en « basculant » la frappe. Pour cela, repérez les deux touches marquées 
SHIFT, de part et d’autre du clavier ; utilisez l’une ou l’autre, selon votre confort : 


e Frappez sur SHIFT ef maintenez-la enfoncée. 
e Puis, frappez sur le 1. 
e Relâchez le tout. 


Vous écrivez ainsi un point d’exclamation (!). 


On peut traduire SHIFT par « basculer ». 
L’action conjointe sur SHIFT et sur une 
autre touche, le 1 ici, sera écrite par la suite 
SHIFT/1. 


Mais vous en savez assez sur cette mise en route, pour ce premier chapitre. Sachez 
que nous reviendrons sur le clavier afin de vous en détailler toutes les possibilités. 


3. Qu’est-ce que le Basic ? 


Un ordinateur se distingue des autres types de machines par le fait qu’on peut lui 
déléguer des fonctions « intellectuelles ». il sait faire énormément de choses si on 
les lui « explique » correctement : poser une fusée sur la lune, établir une facture, 
jouer aux échecs ou vous apprendre les mathématiques... Pour cela, vous devez lui 
fournir des instructions précises développant ce qu’il doit faire dans un langage 
qu’il soit capable de comprendre. 


De nombreux « langages » ont été créés, mais le plus répandu en micro- 
informatique est celui qu’on appelle le Basic, qu’on va étudier dans ce livre. Il 
dérive non pas du français courant (hélas !), mais de l’anglais, car toute l’informa- 
tique nous vient d’outre-Atlantique. Rassurez-vous : même si vous n’êtes pas porté 
sur les langues étrangères, le nombre de mots à acquérir est tellement faible que 
vous ne vous apercevrez même pas que vous vous exprimez en anglais. Plus que de 
mots, d’ailleurs, il s’agira de codes dont l’apprentissage ne demande pas d’effort. 


BASIC 


MICROSOFT 





CHIFFRE 0 


ET LETTRE O 





MICROPROCESSEUR 





MEMOIRES 
INTERNES, 


CENTRALES 
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Le langage Basic a été développé aux Etats-Unis au cours des années 60. Ce mot est 
formé par les premières lettres de l’expression « Beginners All-purpose Symbolic 
Instruction Code », soit, à peu près : code d'instructions symboliques tous usages 
pour débutants. 


Depuis son invention, le Basic a cependant 
fait souche et s’est multiplié. Aujourd’hui, 
il existe en de très nombreuses variantes. 


Pensez au français, tel qu’il est parlé en France, et au français de Montréal 
(Canada), par exemple : le noyau de la langue est le même mais ici et là se manifes- 
tent des différences sensibles. Il en va de même du Basic, qui existe en plusieurs dia- 
lectes pourrait-on dire. Le plus répandu des Basics est cependant celui qui a été mis 
au point par la société américaine Microsoft ; c’est celui qu’Oric a adopté. C’est un 
Basic très complet, étendu comme l’on dit, dont la version employée par l’auteur 
est la 1.1, ainsi que l’indiquait l’écran. 


A propos de chiffres : frappez sur le zéro 

et examinez comment il s’écrit : 9. 

En informatique, on écrira souvent le zéro 
avec une barre au travers pour le différencier 
de la lettre O. En effet, pour l’ordinateur, 
zéro et O sont deux choses totalement 
différentes. Vérifiez-le en les frappant 

au clavier. Et ne les confondez pas à l’avenir. 


Vous pourrez peut-être disposer d’une version différente du Basic sur votre propre 
machine, mais peu importe pour ce qui suit. Mais où ce « langage » se trouve-t-il 
dans l’ordinateur ? 


4. Microprocesseur et mémoires 


Ce qui suit, ici, n’est pas absolument indispensable pour utiliser votre micro- 
ordinateur. Il s’agit d’un petit peu de technique. Mais pourquoi ne pas le lire ? 
Vous vous ferez, ainsi, des idées plus précises sur les caractéristiques de la machine. 


Sachez, tout d’abord, que l’âme de tout micro-ordinateur est un minuscule circuit 
électronique qui tient dans le creux de la main et s’appelle un « microprocesseur ». 
Celui qui équipe l’Oric— 1 porte le nom (peu harmonieux) de « 6502 ». C’est lui 
qui exécute tous vos ordres. 


Cependant, il ne peut fonctionner que pour autant qu’il dispose de circuits lui ser- 
vant de mémoires. Dans ces mémoires seront rangés les programmes, les données, 
les chiffres à additionner ou à soustraire, par exemple, et les résultats. Il s’agit, là 
encore, de minuscules circuits électroniques capables de répondre instantanément 
aux sollicitations du microprocesseur. 


On les appelle des « mémoires internes » 
(à l’ordinateur), ou encore des « mémoires 
centrales ». 


En effet, il existe aussi des mémoires 
« externes », dites aussi « périphériques », 
telles que les cassettes magnétiques. 
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MEMOIRES 
EXTERNES, 
PERIPHERIQUES 


CELLULES 
MEMOIRES 


OCTET 


CARACTERE 


BYTE 





MEMOIRES 
VIVES 


MEMOIRES 
MORTES 





VOLATILITE 


DES MEMOIRES 





PRATIQUE DE L’ORIC-ATMOS ET 36 PROGRAMMES 


Vous pouvez acquérir des programmes tout faits sur bande magnétique mais, pour 
pouvoir les exécuter, il vous faudra obligatoirement les transférer au préalable en 
« mémoire centrale » car ce n’est qu’à partir de celles-ci qu’ils pourront « tour- 
ner » (terme du jargon informatique signifiant « marcher »). 


Ces mémoires internes sont organisées en cellules ; chaque cellule est capable de 
mémoriser un caractère tel que ceux que vous frappez au clavier. Si vous vouliez 
écrire une lettre de 25 lignes de 60 caractères, par exemple, et la mettre en mémoire, 
il vous faudrait disposer de 25 fois 60 = 1 500 cellules en mémoire. 


La frappe d’un caractère se traduit, en effet, par l’émission d’une série de 8 impul- 
sions électriques, ce qu’on appelle un octet. Or, une cellule est précisément capable 
de mémoriser 8 impulsions électriques, donc un octet. Notez qu'’octet se dit 
« byte », en américain. Un total de 1 024 octets (et non 1 000 : ainsi le veut l’infor- 
matique !) s’appelle un ki/o-octet, ou K octet (et en anglais « kilobyte »). 


Rappelez-vous qu’en pratique, « octet » 
(ou « byte ») et « caractère » sont équivalents. 


Le premier écran que vous fournit l’Oric vous précise de combien d’octets vous dis- 
posez, selon la version que vous avez acquise : 16 K ou 48 K. Ainsi, la version 48 K 
de l’auteur indiquait la disponibilité de 37 631 octets en affichant « 37 631 BYTES 
FREE », où FREE signifie libre. Cela fait un peu moins que 48 K exactement, car 
48 K =48 x 1 024 = 49 152 octets ; la différence est, en effet, utilisée par l’Oric lui- 
même pour ses diverses tâches internes. 


Si vous deviez introduire en mémoire des programmes un peu longs, il vous fau- 
drait vérifier qu’ils y trouveront suffisamment de place. Ainsi, n’employez pas une 
cassette de programme marquée 48 K avec un Oric de 16 K seulement. Par contre, 
l’inverse ne pose aucun problème : vous pourrez utiliser un programme de 16 K 
avec une mémoire centrale de 48 qui sera, alors, surabondante. 


Il nous faut cependant encore vous donner une précision à propos des mémoires 
centrales. Sachez qu’on les classe en deux grandes catégories : 


e Les mémoires vives dans lesquelles vous pouvez enregistrer des informations à 
volonté, et les lire, bien entendu. Elles sont affublées du sigle RAM (prononcez 
« rame »). C’est d’elles dont nous avons traité ci-dessus, sans vous l’avoir précisé. 


e Les mémoires mortes : vous ne pouvez plus rien y enregistrer car le fabricant l’a 
fait une fois pour toutes, et c’est définitif. Ces mémoires dites mortes, appelées 
aussi ROM (prononcez « rome »), contiennent des données qu’on ne peut modi- 
fier ; comme les pages imprimées d’un livre, on ne peut que les lire. Dans l’Oric, 
elles stockent le langage Basic. 


C’est bien pratique que les ROM soient indélébiles. Car les RAM, elles, ne conser- 
vent leur contenu que pour autant que l’ordinateur reste sous tension. Dès que vous 
le débranchez, ne serait-ce qu’une fraction d’instant, elles perdent les informations 
qu’elles stockaient. 


Les mémoires vives sont affligées de ce 
dernier défaut, qu’on appelle la « volatilité ». 


Vous devinez, maintenant, pourquoi on emploie des mémoires externes, encore 
appelées mémoires périphériques, telles que des cassettes de bande magnétique ? 
Les informations rangées sur bande magnétique peuvent être lues et relues à tout 
moment : elles ne sont pas ’’volatiles’””, elles. Lorsque vous remettrez votre micro- 
ordinateur sous tension, ses mémoires vives centrales ne contiendront plus rien ; 
vous pourrez alors les recharger avec le programme se trouvant sur support magné- 
tique. Nous allons vous montrer comment dans le chapitre suivant. 
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5. Clavier et écran 


Revenons un moment sur le clavier et l’affichage. Votre Oric est-il en service et le 
téléviseur aussi ? Fort bien. Frappez donc l’alphabet, puis les chiffres de 9 à 9 (oui, 
nous allons barrer systématiquement le zéro), puis à nouveau l’alphabet : cela vous 
obligera à repérer l’emplacement des touches mais va aussi permettre de compter 
combien de caractères peuvent être inscrits sur une ligne : 







Les caractères se placent à 
partir de la 3e position 








ABCDEFGHIJKLMNOPQRSTUVWXYZ@123456789AB 








Après la frappe du 
38e caractère, le 

curseur revient automati- 
quement à la ligne … 









… Mais il se place, lui, en 
1ère position 






La conclusion est évidente : une ligne d’écran contient 49 ’’colonnes”” mais le texte 
n’en utilise que 38. Vous pouvez continuer à frapper la même séquence, par exem- 
ple : attention, l’Oric retournera à la ligne mais n’acceptera que 78 caractères 
répartis sur 3 lignes. 


Dès le second retour à la ligne (76 caractères), 
sa sonnette vous prévient qu’il arrive au 

bout de ses possibilités d’accueil. Encore 
deux caractères, deux coups de sonnette, 

et ce sera tout ! 


Si vous vous entêtez et frappez un 79° caractère, il l’affichera mais le fera immédia- 
tement suivre d’une barre oblique inversée signifiant qu’il annule la ligne, n’en tient 
pas compte : 


LMNOPQRSTUVWX Y 
NOPQRSTUVWXVYZ9 







NN 






Barre d'annulation : il y a 
trop de caractères 





Ceci nous permet de définir : 


e Une ligne physique de 38 caractères sur l’écran. 
LIGNE PHYSIQUE e Une ligne logique qui va, elle, jusqu’à 78 caractères répartis sur trois lignes. 


Remarquez, maintenant, les quatre touches encadrant la barre d’espacement et 
marquées de flèches «— Ÿ T et — et frappez-les : elles emmènent le curseur dans le 
sens indiqué. Notez que +, contrairement à DEL, ne provoque pas l’effacement du 
caractère sur lequel le curseur passe ; vérifiez-le en emmenant le curseur sur du 
texte déjà frappé. 





CTRL 


MINUSCULES 
MAJUSCULES 


CTRL/T 


— 
; 









FORMAT DE L'ECRAN 


Voici le haut de l‘écran 
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Expérimentez aussi les touches marquées de symboles ; en frappe directe, vous 
obtenez le symbole du bas ; avec SHIFT (maintenez SHIFT enfoncée et frappez la 
même touche), vous obtenez le symbole du haut. 


Mais peut-être voudriez-vous écrire en minuscules et non plus en majuscules ? Qu’à 
cela ne tienne, mais pour cela, il faut employer la touche CTRL (à gauche du cla- 
vier), qui signifie contrôle (ou plus exactement, commande). Elle s’utilise comme 
SHIFT : frappez-la et maintenez-la enfoncée, puis frappez sur une autre touche, et 
relâchez le tout. 


Pour passer aux minuscules, frappez CTRL 
et le T, ce que nous indiquerons par 
CTRL/T. Dès lors, tous les caractères 
alphabétiques vont s’inscrire en minuscules. 


Désormais, votre clavier est semblable à celui d’une machine à écrire : toutes les 
frappes de touches alphabétiques donnent des minuscules. Si vous voulez passer 
aux majuscules, il faut frapper à la fois SHIFT et la lettre voulue. Les caractères 
autres que les lettres ne sont pas affectées. 

Si vous voulez revenir au clavier « tout majuscules », il faut refrapper la même 
combinaison : CTRL/T. 


Pour revenir aux majuscules, refrappez 
CTRL/T. Dès lors, tous les caractères 
alphabétiques viendront en majuscules. En 
plus, le haut de l’écran vous indiquera 

« CAPS ». 


Les lettres CAPS viennent pour « capitales », mot d’imprimerie signifiant majus- 
cules. Cela donnera : 











CAPS vient ici, en blanc 
sur fond noir 


Dans l‘écran utile, le texte s‘écrit 
en noir sur fond blanc 






Le choix entre majuscules et minuscules dépend pour beaucoup de votre goût per- 
sonnel. Mais toutes ces frappes n’ont-elles pas déjà bien rempli l’écran ? Si tel n’est 
pas encore le cas, continuez : vous constaterez que l’écran étant plein, une nouvelle 
ligne apparaissant en bas « chassera » la ligne du sommet qui disparaîtra, toutes les 
autres remontant d’un cran. Comptez alors les lignes disponibles (y compris celles 
qui ont pu être sautées) : il y en a exactement 27 sur l’écran « principal », plus la 
28° qui vous indique « CAPS ». 


Le format de l’écran, en mode dit « texte », 
est ainsi de 28 lignes sur 40 colonnes. 


La ligne supérieure, au-dessus du cadre principal, servira surtout pour l’affichage 
de messages divers. 
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Nous vous parlerons ultérieurement de la touche ESC et de toutes les combinaisons 
possibles de CTRL, car nous en terminerons ici avec la touche la plus importante 

RETURN peut-être, celle marquée RETURN, soit retour. Elle correspond au retour à la ligne 
des machines à écrire mais surtout, c’est elle qui vous servira à dire à l’ordinateur 
« Je viens de terminer un ordre ; prends-le en compte maintenant ! ». Pour cela, 
vous frapperez sur RETURN ; tant que vous ne l’aurez pas fait, l’Oric ne saura pas 
qu’il doit passer à exécution. Vous en apprécierez très vite l’usage. Si, en expéri- 
mentant le clavier, vous avez frappé sur RETURN, il est fort probable que le Basic 
de l’Oric n’aura rien compris à ce que vous avez voulu faire et vous aura retourné 
ce fameux message « ?SYNTAX ERROR » qui signifie à peu près « Si vous voulez 
me commander, apprenez d’abord à le faire correctement ! » 


QUESTIONS SUR LE CHAPITRE 1 


Vous pensiez en avoir terminé avec ce chapitre ? Que non : nous ne vous ferons 
grâce de rien, pas même de questions de cours ! En voici quelques-unes, qui évo- 
quent des notions essentielles traitées dans ce chapitre. Vous en trouverez d’ailleurs 
à la fin de tous les chapitres de ce livre. 


Dans tous les cas, ces questions resteront très simples et, pour y répondre, il vous 
suffira de cocher la case correspondante. Si vous marquez un doute, n'hésitez pas à 
relire le passage correspondant dans le chapitre. En voici donc une première série : 
cochez la case en face de la bonne réponse : 


. Le curseur sert à : 
Exécuter des dessins sur l’écran 
] Marquer l’emplacement de la prochaine frappe 











. La touche DEL : 
[] Efface le caractère précédent 
Efface le caractère suivant 





. Pour utiliser la touche SHIFT, vous devez : 
C] La frapper, la relâcher, puis frapper sur une autre touche 
[] La maintenir enfoncée en frappant sur une autre touche 


4. Dire d’une mémoire qu’elle est volatile signifie : 
[] Qu'elle est comparable à un animal de basse-cour (en quoi ?...) 
_] Qu'elle perd ses informations si on débranche l’ordinateur 





r 


28 lignes maximum sur 40 colonnes 
64 lignes sur ‘80 colonnes 





e format de l’écran, en mode texte, est de : 
] 
] 


Avez-vous bien répondu à tout ? Ce n'était pas bien difficile, avouez-le ! 
Vérifiez cependant vos réponses. 
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REPONSES AUX QUESTIONS SUR LE CHAPITRE I 
1. Le curseur sert à marquer l’emplacement de la prochaine frappe. 


2. La touche DEL efface le caractère précédent. Le curseur fait alors marche 
arrière. 


3. Pour utiliser SHIFT, il faut maintenir cette touche enfoncée, puis en frapper une 
autre. 


4. Une mémoire est dite vo/atile lorsqu'une coupure de l’alimentation lui fait per- 
dre... la mémoire. Il n’y a là rien à voir avec des volatiles de basse-cour. La 
preuve ? Volatil s'écrit sans e au masculin (pour l’adjectif qualificatif). 


5. Le format de l’écran, pour l’Oric, est de 28 lignes sur 40 colonnes. 


Combien d'erreurs avez-vous commises ? Zéro ? Tous nos compliments. Une ou 
deux : bien, bien, bien. Trois ou quatre : pourquoi ne pas relire ce chapitre ? 
Cinq : mais au fait, l’avez-vous bien lu une première fois ? 


CHAPITRE II 


MAGNÉTOPHONE 


ET CASSETTES DE PROGRAMMES 


Disposez-vous de cassettes pré-enregistrées pour l’Oric ? Des jeux (« Les envahis- 
seurs »..) ou des programmes d'enseignement (« Maths »...) ? Vous êtes immé- 
diatement en mesure de les employer car pour cela, vous n'avez pas besoin d'en 
savoir davantage sur le fonctionnement de l'ordinateur. Vous allez, ainsi, pouvoir 
vous perfectionner en mathématiques, ou vous battre contre des soucoupes volan- 
Les. 


C'est non seulement le « chargement » d’un programme qu'on va aborder ici, mais 
aussi la « sauvegarde », c’est-à-dire le transfert sur bande magnétique (non « vola- 
tile ») d’un programme que vous avez créé, par exemple. 

Le mode d'emploi de ce chapitre est ainsi le suivant : lisez immédiatement sa pre- 
mière partie Mais, parce qu'on n’a pas encore étudié la programmation, sautez la 
seconde. Vous y reviendrez par la suite, dès que le besoin s’en fera sentir, c'est-à- 
dire dès que vous aurez des programmes à « sauvegarder ». 


Principaux thèmes étudiés 


Connexion d’un magnétophone Démarrage à chaud 


Chargement 
CLOAD 
Vitesse lente 
S 


d’un programme Démarrage à froid 
Sauvegarde d’un programme 
CSAVE 
Démarrage automatique 


Ré-initialisation CSAVE AUTO 


RESET 


CONNEXION D'UN 


MAGNETOPHONE 








1. Le magnétophone 


Votre Oric utilise des cassettes tout à fait standards, telles que celles sur lesquelles 
vous enregistrez de la musique. Tout au plus conseillera-t-on alors d’utiliser des 
bandes de bonne qualité. 


Le magnétophone sera votre magnétophone habituel. Les appareils très bon mar- 
ché donnent d’excellents résultats. Il vous faut cependant connecter le magnéto- 
phone à l’Oric et pour cela, nous vous conseillons d'employer le câble que vous 
fournit le fabricant. C’est un câble terminé à ses deux extrémités par des fiches ron- 
des (aux normes « DIN »), à trois broches mâles. Insérez l’une de ces fiches dans la 
prise femelle à 7 broches, elle, située à l’arrière de l’Oric, la seconde dans la prise 
femelle correspondante de votre magnétophone, qu’élle soit à 3 ou 5 broches, peu 
importe. 
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Vers prise 
péritel du 
téléviseur 







‘Ici, vous avez 
branché 
l'alimentation 









Magnétophone 


nuann 





L’Oric, vu de derrière, afin de vous montrer où connecter le magnétophone. 


Méfiez-vous des cordons qu’on trouve dans le commerce, avec cinq broches au lieu 
de trois ; dans ce cas, en effet, des broches sont souvent court-circuitées et vous 
éprouverez des surprises les plus diverses (l’auteur en a fait l’expérience et a perdu 
le son.…..). 


Par contre, si votre magnétophone est muni d’une entrée de commande à distance 
(mise en marche et arrêt du moteur), n’hésitez pas à employer un connecteur 7 bro- 
ches, branché comme la notice de l’Oric le décrit. Vous vous épargnerez ainsi la 
peine de mettre le magnétophone en marche puis de l’arrêter, votre ordinateur s’en 
chargeant pour vous. Dans ce qui suit, nous allons supposer que vous ne disposez 
pas de télécommande et nous allons vous imposer cette « corvée » en plus. 


Sur le magnétophone lui-même, vous n’aurez qu’à ajuster le volume sonore, qui ne 
NOUS a pas paru critique du tout. L'auteur a obtenu d’excellents résultats en prome- 
nant le bouton de volume sonore pratiquement sur tous les réglages possibles. 
Réglez-vous cependant, par souci de sécurité, vers le milieu de la gamme ou un peu 
au-delà ; nous sommes restés sur le réglage 6 pour un bouton gradué de 9 à 19. 


Un conseil : les têtes de lecture-écriture de 
votre magnétophone doivent être propres : 
nettoyez-les de temps à autre. 


2. Le chargement d’un programme 


On vous a déjà dit que les mémoires internes (vives) des ordinateurs étaient *’volati- 
les”. Lorsque vous mettrez votre Oric en service, ses mémoires vives ne contien- 
dront rien. Par contre, vous disposez peut-être d'une cassette pré-enregistrée. 
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Si votre Oric est une version 16 K, il 
faudra utiliser une cassette contenant un 
programme ne dépassant pas 16 K. Vérifiez 
sur votre cassette si elle est destinée à une 
version 16 K (ou 48 K) : c’est généralement 
indiqué très lisiblement. 


Une fois sélectionnée la cassette voulue, on va transférer en mémoire centrale le 
programme qu’elle contient. 


Cette opération s'appelle le chargement. 
CHARGEMENT Vous l’exécuterez chaque fois que vous 

D'UN PROGRAMME voudrez employer un autre programme 

à partir d’une mémoire périphérique (d’une 

cassette, dans notre cas). 





Placez la cassette dans le magnétophone. Très souvent et par sécurité, une cassette 
est enregistrée sur ses deux faces avec le même programme ; vous pourrez donc 
employer indifféremment n’importe laquelle. Rembobinez la cassette, puis respec- 
tez les instructions suivantes : 


1 — Frappez au clavier le mot CLOAD, en majuscules. Il provient de l’anglais 
LOAD, pour chargement, précédé par un C signifiant cassette. 


CLOAD 2 — Si votre cassette ne contient qu’un seul et unique programme, frappez ensuite 
deux fois des guillemets après CLOAD (vous pouvez laisser un espace entre 
CLOAD et la première paire de guillemets). 


Vous obtiendrez les guillemets avec la 
touche SHIFT. 


En réalité, l’ordre CLOAD complet demande qu’on précise le nom du programme, 
écrit entre guillemets. Celui-ci est inscrit sur la cassette. Si vous n’indiquez pas de 
nom, l’Oric va charger le premier programme qu’il rencontrera. S’il n’y en a qu’un, 
c’est forcément le bon. 

Vous pouvez, cependant, indiquer le nom ; deux cas se présentent ici : 


e La bande comporte plusieurs programmes. En indiquant le nom de celui que 
vous voulez charger, l’Oric le recherchera et ne chargera que celui-ci. 


e Elle ne contient qu’un seul programme : ce sera une vérification. 


Attention : si vous frappez le nom, 
respectez scrupuleusement son orthographe 
et même les espaces. 


La moindre erreur serait interprétée par l’Oric comme un autre nom, et l’ordina- 
teur ne retrouverait pas le programme voulu. 


3 — Maintenant, vérifiez sur la cassette si ce nom n’est pas suivi par une virgule, 
puis par la lettre S. Ce sera très généralement le cas. Frappez alors une virgule puis 
un S majuscule. 
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L’Oric dispose de deux vitesses pour 
enregistrer et lire des cassettes, une rapide 
et une lente. La lente fournit des résultats 
bien plus fiables, d’où son emploi. 
« Lente » se dit « slow », en anglais, 
d’où leS. 





Si vous ne frappiez ni la virgule, ni leS, l’Oric passerait la grande vitesse. et bien 
sûr, n’aurait plus le temps de lire une bande enregistrée en basse vitesse. 

En supposant que vous veniez de mettre votre ordinateur en service, l’écran devrait 
afficher : 







Ca, c'est pour un 48 K. 
Pour un 16 K, ce sera moins 






ORIC EXTENDED BASIC V1.1 
C 1983 TANGERINE 









37631 BYTES FREE 


Ready 
CLOAD ‘“", 








Vous venez de 


| Le curseur est 
frapper ceci ci 


ICI 





Notez que nous n’utilisons pas de nom de programme, dans les guillemets, pour 
une autre raison « nécessaire et suffisante » : nous ignorons lequel vous allez 
employer. 


4 — Maintenant, frappez sur la touche marquée RETURN. 


C’est la touche RETURN qui indique au 
Basic qu’il doit acquérir l’ordre frappé, 
puis l’exécuter, Sans RETURN, rien ne 
se passera. 


Aussitôt, l’ordinateur part à la recherche du programme, ce qu’il a l’obligeance de 
vous indiquer sur sa 28° ligne (celle du haut) : 


«Je cherche …» : c'est écrit en 
blanc sur fond noir 





5 — Mais il ne peut rien trouver, car vous n’avez pas encore mis le magnétophone 
en marche, en mode « lecture ». Faites-le donc. 

Dès lors, le Basic « lit » la bande ; dès que le programme est trouvé, le message 
change et devient : 





«J'ai trouvé le programme dont voici le «NOM» 
et je suis en train de le charger...» 
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Si vous avez donné le nom du programme, ce même message est suivi de ce nom, 
par exemple * DEMONSTRATION” : 





Armez-vous de patience : pour un programme destiné à une mémoire de 48 Keten 
mode lent (S), il faudra cinq bonnes minutes. A l’issue du chargement : 


e Le programme démarrera automatiquement. Le plus souvent alors, c’est lui qui 
vous indiquera ce que vous devrez faire. Par exemple et pour lutter contre des sou- 
coupes volantes, il vous dira que vous devez frapper sur la barre d’espacement pour 
envoyer le faisceau laser contre les envahisseurs. 


e Sinon, l’Oric vous indiquera que le chargement est terminé en affichant son mes- 
sage habituel READY, ce qui donnera (si l’on ne retient qu’une fraction de 
l’écran) : 





Ça, c'est ce qui figurait déjà 
sur l‘écran….. 














… Voici maintenant le 
nouveau «Je suis prêt !», 
après chargement 





6 — Dans tous les cas, stoppez alors le magnétophone. 


7 — Si le programme chargé ne démarre pas automatiquement, frappez les trois 
lettres RUN, ce qui signifie ’En marche’”’, en anglais, pr‘ frappez la touche 
RETURN et il sera ’’lancé”’. 


En cas d’erreur, n’hésitez pas à recommencer 
toutes ces opérations. 


Si vous frappez mal l’ordre, vous obtiendrez peut-être le message ?SYNTAX 
ERROR. Recommencez alors. Ou bien vous constaterez que toute la bande a été 
lue et que le message sur la ligne supérieure est toujours ’’Searching...”” (je 
cherche...) ; demandez-vous alors si vous n’avez pas omis de connecter le magnéto- 
phone au micro-ordinateur. 


L'ordinateur est têtu : après un ordre de 
chargement, il cherche un programme et le 
veut ! Tant qu’il ne l’aura pas trouvé, il 
continuera à chercher sans accepter d’autres 
ordres. 


Le clavier est alors ’’inerte””, ne répond plus à vos frappes. Pour pouvoir recom- 
mencer et passer de nouveaux ordres, débranchez un instant l’ordinateur, puis 
remettez-le sous tension, ce qui va le ré-initialiser, comme l’on dit : vous retrouve- 
rez le premier écran. 





RE-INITIALISATION 


Il existe toutefois une méthode plus élégante pour ré-initialiser l’ordinateur, mais 
elle n’est pas plus pratique, vous allez en juger : retourner complètement l’Oric, 
sens dessus-dessous. A l’extrémité droite du boîtier se trouve une petite *’fenêtre’” 
rectangulaire en face de laquelle a été placé un bouton-poussoir (qu’on ne distingue 
pas). Introduisez un crayon dans cette fenêtre et poussez le bouton. 
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Voici la 
fenêtre 
sous 

laquelle se 
trouve le 
poussoir 










Pour ré-initialiser la machine, vous pouvez agir sur le poussoir accessible par le dessous de l’Oric. 


Aussitôt, l’écran s’efface et vous obtenez : 





Dès lors, vous pouvez recommencer. 


Cette action s’appelle le RESET (remise 

RESET à zéro). Le RESET ne fait pas perdre à la 
mémoire centrale ce qu’elle pouvait déjà 
contenir, contrairement à une interruption 
de l’alimentation. 


Servez-vous du RESET chaque fois que vous perdez le contrôle de l’ordinateur. 
Cela vous sera très utile, surtout lorsque vous programmerez. 


Le RESET est encore appelé un « démarrage 
DEMARRAGE à chaud ». Le « démarrage à froid » est 

A CHAUD, A FROID celui qu’on provoque en remettant l’Oric 

sous tension. 





Nous supposons maintenant que votre programme « tourne » et que vous êtes en 
train d’essayer de poser votre super-avion 787 sur la piste d’atterrissage. L’auteur 
souhaite que vous réussissiez mieux que lui : il a « crashé » l’avion, ce qui lui a valu 
en cours de manœuvre le message « Attention, cet avion est encore sous 


garantie ! ». 
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3. Sauvegarde d’un programme 


Nous allons vous montrer, maintenant, comment transférer sur bande magnétique 
un programme se trouvant en mémoire centrale. Ce sera soit un programme que 
vous venez de créer, soit tout autre programme que vous avez précédemment 
chargé en mémoire centrale à partir d’une cassette et dont vous voulez faire une 
copie sur une autre cassette. 


Si vous ne faites qu’aborder ce livre, vous n’avez pas encore commencé à program- 
mer ; dans ce cas, nous vous conseillons de sauter ce qui suit. En effet, nous allons 
faire appel à quelques notions qui ne seront étudiées que dans les chapitres ulté- 
rieurs (par exemple, les ordres PRINT, LIST...). Dès que vous aurez débuté la pro- 
grammation, vous reviendrez à ce texte ; nous vous indiquerons à quel moment. En 
effet, nous avons jugé préférable de regrouper en un unique chapitre tout ce qui a 
trait aux cassettes. 


Le rangement sur bande magnétique d’un 


SAUVEGARDE programme se trouvant en mémoire centrale 
D'UN PROGRAMME s’appelle la « sauvegarde ». 





Créons un programme ultra-simple afin de le sauvegarder (c’est inutile si vous avez 
votre propre programme en mémoire centrale : servez-vous alors de celui-là). Ce 
programme comporte deux lignes : 





Afin de le sauvegarder sur cassette, vous pouvez ou non lui décerner un nom, obli- 
gatoirement écrit « entre guillemets ». 


Si vous ne lui attribuez pas de nom, 

il faudra quand même frapper les 
guillemets TTT mais sans rien écrire dedans, 
sans même placer un espace à l’intérieur : 
le Basic considérerait cet espace comme 

un nom ! 


Appelons ce programme « ADIEU ». L'ordre de sauvegarder s’écrit CSAVE, avec 
SAVE pour sauvegarder précédé de C, pour cassette. L'ordre complet serait donc : 


CSAVE 


CSAVE "ADIEU 










Le curseur est là : vous n'avez 
pas encore frappé sur RETURN, 
donc l’ordre de sauvegarde n'est pas 
encore exécuté 





Vous pourriez dès lors lancer l’enregistrement : celui-ci se fera très rapidement, à la 
vitesse de 2 400 « bauds », ce qui correspond à quelque 200 caractères par seconde. 
Pour travailler à cette relativement grande vitesse, il faut un matériel impeccable : 
magnétophone (ses têtes, surtout) et bande. Comme, en général, tel n’est pas le cas, 
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nous vous conseillons par sécurité d’adopter la vitesse « lente », de 300 baudbs, 
donc 8 fois inférieure. Encore faut-il indiquer au Basic qu’on change de vitesse. Or, 
le mot « lent » se dit « s/ow », en anglais ; vous ajouterez donc à la suite de l’ordre 
une virgule, puis un S, ce qui donne : 












Par contre, 
vous pouvez mettre 
un espace après 

les guillemets si vous 
le désirez, pour le coup d'œil 







Attention : pas d'espace 
dans les guillemets 





Dès lors, le processus est le suivant : 


1. Mettez une cassette (vierge, de préférence) dans le magnétophone. 


2. Rembobinez-la, remettez le compteur à zéro si votre magnétophone en possède 
un. Vous pouvez enregistrer n’importe où sur la bande mais n’oubliez pas de noter 
alors l’indication du compteur. 

Attention : toutes les bandes commencent par une petite amorce sur laquelle on ne 
peut rien enregistrer. 


3. Mettez le magnétophone en marche en position enregistrement (et non lecture : 
ne vous trompez pas). Laissez passer éventuellement l’amorce, puis frappez sur 
RETURN. L'ordinateur va alors exécuter l’ordre ; il commence par émettre un 
signal servant à stabiliser le fonctionnement du magnétophone, puis envoie la salve 
des ondes traduisant votre programme. Pendant le court instant que cela dure, 
vous lirez sur la ligne supérieure de l’écran ; 





ou alors, si vous avez donné le nom du programme : 


$ 





CSAVE "",S 
Ready 
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4. Stoppez alors le magnétophone car la sauvegarde est terminée. 


5. Indiquez, sur la cassette, /e nom du programme, où il commence et où il finit sur 
la bande, et indiquez enfin la vitesse. Par exemple, ajoutez « ,S » pour préciser 
qu'il s’agit de la vitesse lente. 


N’omettez jamais de porter sur vos cassettes 
toutes les indications utiles. Vous ne vous 
énerverez pas, ensuite, à rechercher 

« quelque part » un programme donné. 


Au cours de la sauvegarde et selon le type de magnétophone que vous possédez, 
vous entendrez ou non la « modulation », les trains d’ondes qui sont transférés. Le 
bruit en est plutôt désagréable ! Il en ira de même, d’ailleurs, lors de l’opération 
inverse, le chargement. 


6. Voulez-vous prendre une précaution supplémentaire ? Sauvegardez une seconde 
fois ce même programme. 


Cela étant fait, on va vérifier que tout a bien fonctionné. Notons qu’avec l’Oric- 
Atmos, l’usage de la vitesse rapide n’est pas critique ; aussi, n’hésitez pas à 
l’employer dès lors que votre programme est un tant soit peu long. 


4. Les règles du chargement 


Afin de vérifier que la sauvegarde s’est correctement déroulée, on va effacer la 
mémoire centrale, afin de recharger ce programme. 


Pour effacer la mémoire centrale, utilisez l’ordre NEW qui indique à l’ordinateur 
qu’on veut faire le ménage dans la mémoire, la vider, afin de charger un nouveau 
programme. Frappez NEW, puis RETURN : 





NEW 








Ici, vous avez 
fait RETURN 





eady 








Par acquit de conscience, vérifiez que la mémoire est bien vide en demandant le /is- 
tage de ce qu’elle contient, ce qui se commande LIST ; n’oubliez pas le RETURN : 


LIST 






Aucun listage n’apparait 
car il n’y a plus rien en 
mémoire 


Le processus de chargement est exactement le même que celui qu’on a vu au début 
du chapitre. Rembobinez la bande et placez-vous au point de départ du pro- 
gramme, puis frappez l’ordre : 










Vous avez fait 
RETURN 
ici 
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ou encore, si vous voulez donner le nom : 


CLOAD "ADIEU",S 





Il faut obligatoirement charger un 
programme avec la même vitesse qu’on a 
utilisée pour sa sauvegarde. Ce sera donc 
la vitesse lente, indiquée par le suffixe « ,S ». 


Dès le RETURN, le curseur revient à la ligne et la 28° ligne, celle au-dessus de 
l’écran habituel, indique « Searching... » (« je cherche le programme »). Démar- 
rez alors le magnétophone en position lecture (et non enregistrement). 


Notez bien cette différence : 

e A la sauvegarde, on démarre d’abord 

le magnétophone avant de frapper RETURN. 
e Au chargement, on frappe d’abord 
RETURN, puis on lance le magnétophone. 


L'ordinateur rencontrant le programme va afficher, tout en haut de l’écran, « Loa- 
ding.. » suivi du nom de ce programme, et à l’issue du chargèment, il ré-affichera 
un Ready sur l’écran. Stoppez alors le magnétophone. 


Si vous avez fourni le nom du programme, 
l’ordinateur ne chargera pas le premier qu’il 
rencontre mais uniquement celui dont le nom 
est en conformité absolue avec celui que vous 
avez donné. 


En « croisant » des programmes portant d’autres noms, il indiquera qu’il les a 
trouvés, mais sans s’y arrêter, avec, par exemple, le message « Found.. TOTO B », 
si TOTO est le nom du programme rencontré. Ainsi pouvez-vous véfifier les noms 
des programmes de votre bande. (Ceci n’est valable que pour l’Oric-Atmos et non 
l’ancien Oric — 1.) 

Bref, le programme se trouve à nouveau en mémoire centrale. Vérifions-le en fai- 
sant un LIST, par exemple : 









A la fin du chargement 
l’Oric affiche ce «prêt !» 






LL] 









Voici le listage exact 
du programme que vous aviez 
sauvegardé 









Ce listage est parfaitement correct. Vous auriez aussi pu lancer ce programme avec 
RUN, ce qui aurait donné : 
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Ready 
RUN 
BONJOUR 
En effet, le RUN 
Ready affiche «Bonjour» 








Il est même possible de faire automatiquement démarrer un programme à l’issue de 
son chargement, simplement en ajoutant à la fin de l’ordre de sauvegarde le mot 

DEMARRAGE AUTO. Faites-en l’expérience : puisque votre programme est en mémoire centrale, 
AUTOMATIQUE sauvegardez-le à nouveau mais en faisant, cette fois (repérez bien où vous l’enregis- 
trez sur la bande) : 





Puis, effacez la mémoire centrale avec NEW, et rechargez le programme. Automa- 
tiquement, il démarrera, ce qui donnera : 







Aussitôt chargé, le 
programme est exécuté 


Vous comprenez, maintenant, pourquoi les cassettes pré-enregistrées vous offrent 
souvent des programmes à auto-démarrage : elles ont été enregistrées avec cet ordre 
AUTO. 


Ajoutons encore que tous les chargements ne seront pas forcément réussis. Dans ce 
cas, l’Oric vous préviendra en affichant, après l’ordre de chargement : 


ERRORS FOUND 
ady 










«{l y a des erreurs quelque 
part : j'ai stoppé le chargement !» 


Avec l’ancien Oric — 1, le message était « FILE ERROR/LOAD ABORTED ». 
Il ne vous restera plus, alors, qu’à recommencer, peut-être en essayant la seconde 
copie du même programme si l’on suppose que la bande puisse être, en un passage 
quelconque, défectueuse, 
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QUESTIONS SUR LE CHAPITRE II 


Ici, exceptionnellement, vous n'aurez pas droit à nos traditionnelles questions. 
Jouez plutôt aux « Envahisseurs », par exemple (et, s’il vous plaît, ne restez pas 
forcément sur les vitesses de jeu pour débutants !). 

N'oubliez pas que le jeu est une activité intéressante à de nombreux points de vue, 
ne serait-ce que pour bien se familiariser avec l’ordinateur. 


REPONSES AUX QUESTIONS SUR LE CHAPITRE III 

1.PRINT est un ordre d’affichage sur l’écran. 

2. PRINT ”’3 +2” affiche 3 +2 (reproduction, puisqu'il y a des guillemets). 
3. PRINT 3 +2 affiche 5 (pas de guillemets, donc exécution de l’opération). 


4. PRINT ’’3 +2 affiche 3 +2. Bon enfant, le Basic accepte que vous ne refermiez 
pas les guillemets si vous faites un RETURN. 


5. Le symbole ? remplace le mot PRINT. Donc, vous afficherez 5 ; il n’y a pas 
d’erreur. 


6. Par contre, il y en a une, ici, car on a confondu le lettre O avec le chiffre zéro. La 
machine s’en sort en additionnant 19 + 1 et affiche 11, puis s’occupe de la lettre O 
qu’elle considère comme une variable à laquelle on n’a rien affecté encore, et lui 
décerne un zéro ! . 

7. Rappelez-vous : le symbole de la multiplication n’est pas le X mais l’astérisque 
(+). La machine répondra 7 9 car pour elle X3 est aussi le nom d’une variable qui 
n’a reçu aucune affectation. 

8. C’est une élévation à la puissance 3 ; vous lirez donc 27. 

9. L'écran affichera 9/3 =6. 


19. Dans un ordre PRINT, la virgule sert à la fois à séparer des constantes et à 
tabuler sur des colonnes de 8 caractères. Les deux réponses sont bonnes. 


11. A$ est un nom de variable chaîne, grâce au symbole $ 


12. Oui ; en fin de course, T vaut 1. 


CHAPITRE III 
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Voici le premier chapitre consacré à la programmation, dans ce qu’on appelle le 
« mode direct ». On donne un ordre à l'ordinateur et, dès la frappe de 
« RETURN », il l’exécute. On a déjà exploité ce mode direct avec les cassettes, 
aussi va-t-on en profiter pour examiner, ici, d'autres instructions fondamentales. 
Le chapitre suivant abordera le mode « programme ». 


Principaux thèmes étudiés 


Guillemets Elévation à puissance Variable numérique 
PRINT Racine carrée Constante chaîne 
RETURN SQR Variable chaîne 
Syntaxe Virgule dans un PRINT Affectation 
Annulation d’une ligne Effacement de l’écran Symbole d’affectation (=) 
CTRL/X CTRL/L Noms de variables 
Point d’interrogation pour CTRL/H Mots réservés 

PRINT CTRL/I Chaînes de caractères 
Mode direct CTRL/J Chaîne vide 
Rôle des guillemets CTRL/K Concaténation de chaînes 
Point-virgule CTRL/M Symbole + de concaténation 
Zéro et lettre O Chaînes de caractères Sonorisation des touches 
Multiplication (+) Symbole $ CTRL/F 
Division (/) Constante Effacement d’une ligne 
Point décimal Variable CTRL/N 
Virgule décimale Constante numérique 





1. L’instruction PRINT 


Avec ce chapitre, nous abordons la programmation de l’Oric, dans ce langage 
qu’on appelle le Basic et dont nous avons parlé au début de ce livre. 


Commencez donc par frapper au clavier les mots suivants, en respectant rigoureu- 


sement cette façon de les écrire ; cela signifie qu’il faudra placer des espaces comme 
GUILLEMETS ils figurent ici, pas davantage (après tout, il sera toujours temps d’essayer après), 
ainsi que des guillemets. Les guillemets sont obtenus avec la touche SHIFT : main- 


tenez SHIFT enfoncée, puis frappez sur la touche marquée de guillemets, et relâ- 
chez le tout. 


Rappelez-vous aussi que l’espace arrière, 
marqué DEL, sert à effacer le caractère 
précédent. 
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Voici donc ce que vous devez frapper et ce qui apparaîtra sur l’écran, à supposer 
que vous veniez de mettre votre ordinateur en service ; le mot nouveau, un ordre du 
Basic, est PRINT, ici ; respectez bien son orthographe : 






ORIC EXTENDED BASIC V1.1 
C 1988 TANGERINE 








Le curseur 
vient ici 





37631 BYTES FREE 











Frappez cette 
ligne 






Ready 
PRINT "BONJOUR 





Mettez le mot BONJOUR 
«entre guillemets» 


Le mot PRINT est un mot anglais signifiant « imprimer ». On l’utilisait aux âges 
héroïques de l’informatique, quand les écrans étaient rares et chers. On l’a conservé 
avec les écrans mais dans l’acception afficher. Cet ordre Basic ordonne à la 
machine d’afficher tout ce qui est encadré par les guillemets ; c’est, aussi, la pre- 
mière instruction Basic que vous écrivez. Félicitations ! 


PRINT 


Pour l'instant, l’ordre figure sur l’écran mais n’a pas encore été acquis par le Basic, 
ni donc exécuté. Il manque encore cette indication qu’on pourrait traduire par « À 
RETURN vous de jouer, Basic : prenez cet ordre et faites ce que vous avez à faire ! ». Tout 
cela s’exprime très simplement : il suffit de frapper sur la touche RETURN 
(« retour »). 


La frappe de RETURN fait prendre l’ordre 
en compte par l’ordinateur. Il faudra 
la frapper après un ordre, une instruction. 


On verra que RETURN sert aussi à ramener le curseur à la ligne, au début de la 
ligne suivante, d’où le nom qui lui a été attribué. Frappez donc sur RETURN ; aus- 
sitôt, le Basic obéissant affiche sur la ligne suivante BONJOUR, puis saute une 
ligne et vous indique qu’il est de nouveau prêt, ce qui donne : 


PRINT "BONJOUR" 
BONJOUR 





















Ceci c’est le Basic qui 
l’a affiché, en exécution 
de votre ordre 





EADY 














La machine attend 


: Essayons maintenant un message plus compliqué ; frappez d’abord la ligne indi- 
maintenant la suite “ 8e p puq PP £ 


quée puis faites RETURN, et vous obtiendrez : 





T.. Et pensez à 
frapper ici RETURN 






SYNTAXE 


Le + et le ?s'obtiennent 
avec SHIFT 
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A nouveau, la machine a reproduit fidèlement votre message. Il peut être absolu- 
ment quelconque, à la condition d’être encadré par des guillemets ; par exemple : 


N'importe quoi ! 


















N'oubliez ni les guillemets, ni 
le RETURN 






Sachez que la machine ne s’intéresse pas 
au sens (au contenu) du message, à la 

« sémantique », mais à sa forme, sa 

« syntaxe ». 


Ainsi, les guillemets lui sont nécessaires. Si vous les oubliez, elle ne comprendra 
plus et vous renverra:un message d’erreur ou un zéro, car c’est la note que vous 
méritez : 





Re A Pa ce Neo er yen N'oubliez pas ) — 
PRINT ET LES GUILLEMETS ? RETURN 












Réponse de la machine : 
un beau zéro, car on a omis 
les guillemets 


Q 
Ready 






A la limite, elle acceptera que vous ne refermiez pas les guillemets si vous faites un 
RETURN : 





Ne refermez 
pas les 

guillemets (mais 
ouvrez-les) 













Vous obtiendrez un message d’erreur de syntaxe (?SYNTAX ERROR) si vous 
orthographiez mal le mot print, ou introduisiez des espaces entre ses lettres, ou 
l’écriviez en minuscules : vérifiez-le. 


Les mots de commandes doivent être 
frappés en majuscules. Ce que vous mettez 
dans les guillemets peut être en minuscules 
ou majuscules, peu importe, l’ordinateur 
respectera votre choix de caractères. 


Rappelez-vous qu’on passe des majuscules aux minuscules, et vice-versa, avec 
CTRL/T (maintenez CTRL enfoncée et frappez sur T). Avec les majuscules, le mot 
CAPS (pour « capitales », ce qui signifie majuscules en termes d’imprimerie), 
apparaît en haut et à droite de l’écran. Il disparaît lorsque vous revenez aux minus- 
cules. En mode minuscules, vous obtiendrez des majuscules avec la touche SHIFT, 
comme sur un clavier de machine à écrire. 
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Si vous commettez trop de fautes dans une ligne, n’hésitez pas à frapper RETURN 
et à la recommencer ; tant pis pour le message d’erreur : vous en obtiendrez bien 
ANNULATION d’autres, vous le verrez. Une autre méthode, plus élégante, consiste à frapper au 
D'UNE LIGNE bout d’une ligne qu’on veut annuler (et avant d’avoir fait RETURN) le code 





CTRL/X (maintenez CTRL enfoncée et frappez X). Le Basic place alors une barre 
CTRL/X oblique inversée au bout de la ligne, l’annule, et ramène le curseur au début de la 
ligne suivante. Par exemple : 
Frappez cette ligne . 






7. Que vous annulez en faisant 
CTRL-X qui se traduit par 
ce symbole 









Vous pouvez maintenant 
frapper autre chose 






Dans la ligne ci-dessus, on n’avait même pas mis d’ordre, tel que PRINT. C’est las- 
sant, aussi, de toujours frapper ces cinq lettres. Bon, d’accord : remplacez-les par 
un simple point d'interrogation. 


Dans le code du Basic, un point 


POINT d’interrogation peut remplacer le mot 
D’'INTERROGATION PRINT. 


POUR PRINT 





Vérifions-le avec cet exemple : 





N'oubliez pas 
RETURN 





Ready 
? "BONJOUR" 


BONJOUR 
[ 
. nn. 








On utilisera ce point d’interrogation qui permet d'économiser 4 frappes. 

A propos : vous devez maintenant avoir acquis l’automatisme de la frappe sur 
RETURN, et ce à la fin de chaque ordre. Aussi ne vous le rappellera-t-on plus 
systématiquement, sauf lorsque c’est nécessaire à nos explications. D'autre part, 
vous avez pu constater que le mot « Ready » revient constamment ; nous ne le 
reproduirons plus sur nos «’écrans » sauf, à nouveau, lorsqu’il se révèlera intéres- 
sant à placer. 


Enfin, nous vous proposons une convention 
d’écriture dans nos « écrans » : tout ce que 
vous devez frapper sera indiqué en gras, 
alors que les réponses de la machine ou ses 
messages resteront en maigre. 


Rappelez-vous qu’il ne s’agit que d’une convention, puisqu’en réalité, tous les 
caractères auront le même aspect sur votre téléviseur. 


MODE DIRECT 


Le point d'interrogation 
remplace le mot PRINT 


ROLE DES 


GUILLEMETS 





POINT-VIRGULE 
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2. Premiers calculs 


Vous avez pu constater que, lorsqu’on frappait un ordre au clavier suivi par un 
RETURN, la machine l’exécutait aussitôt. C’est cela qu’on appelle le mode direct. 


En mode direct, un ordre est aussitôt 
exécuté (après RETURN). On appelle encore 
ce mode « mode immédiat », ou « mode 
conversationnel ». 


Si l’on passe aux chiffres, on l’appellera même « mode calculette », voici pour- 
quoi. Frappez l’addition suivante, sans placer de guillemets, et faites RETURN ; 
surprise : vous n’obtiendrez pas de message d’erreur maïs le résultat ! Voici ce que 
cela donne : 






Bien sûr, vous vous rappelez 
qu'il faut faire RETURN ici 







? 5+3 





Voici le résultat ! 





Nous avons écrit en gras ce que vous deviez frapper, selon nos conventions. La 
machine a répondu 8 ; heureusement ! Recommencez avec des guillemets, cette 
fois : 





RER EEE SO Avec des guillemets, 
2 "5+3" cette fois 


5+3 










Comme précédemment, le Basic s’est 


Ainsi, on peut demander au Basic soit de reproduire la formule (dans des guille- 
mets), soit d’exécuter le calcul (sans guillemets). Combinons ces deux modes, en 
séparant les deux codes par un point-vigurle : 





La première expression entre guillemets est reproduite telle, la seconde sans guille- 
mets est calculée ! 


Notez que le point-virgule sert de séparateur 
« officiel » dans un ordre PRINT. Il évite 
d’avoir à répéter deux fois PRINT, ici. 
L’affichage se fera à la suite, sans retour 

à la ligne. 


Essayons maintenant avec une soustraction, en exécution directe : 
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Curieux, ce zéro … 


La soustraction est classique, mais pas le zéro. 





En informatique, il ne faut pas confondre le 
ZERO ET chiffre zéro et la lettre O. Aussi écrit-on 
LETTRE O zéro avec une barre oblique. Ne vous 
trompez surtout pas en frappant O ou 8 ! 


On peut, maintenant expérimenter la multiplication et la division, mais il nous 
faut noter deux points importants. 


Le symbole de la multiplication n’est pas le 
signe habituel X que l’on confond trop 
facilement avec la lettre x, mais l’astérisque 
(*). Le symbole de la division est la barre 
oblique (/). 





Voici ce que donnerait une opération compliquée : 








…… Et divisé 
par 





? 2345*x67/5 
81423 


Expérimentons maintenant une opération donnant à la fois un résultat négatif et 
une valeur décimale : 


Le signe émoinss a Ÿ La réponse est : — 49,285714 
bien été placé 


Notez la précision de la réponse, fournie avec 7 décimales. Nous devons aussi atti- 
rer votre attention sur le fait que le Basic, d’origine américaine, utilise un point 
POINT DECIMAL décimal au lieu de notre virgule habituelle. 


VIRGULE DECIMALE N'oubliez jamais que le point décimal 


remplace la virgule décimale. Nous écrirons 
désormais tous nos nombres décimaux avec 
un point. 











ELEVATION A 


PUISSANCE 





RACINE CARREE 


SQR 





VIRGULE DANS 


UN PRINT 
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Maintenant que vous connaissez les règles, vous pouvez expérimenter toutes sortes 
d’opérations compliquées. Ne vous en privez pas. Vous apprécierez ce mode direct 
« calculette » qui, en fait, se révèle d’une puissance remarquable. Vous pourrez 
aussi introduire des parenthèses à volonté dans vos expressions. 


Puisque nous sommes en pleine arithmétique, on va vous indiquer aussi comment 
élever un nombre à une puissance, et par exemple, calculer 32. 


Le symbole de l’élévation à une puissance 
est une flèche verticale, dont vous trouverez 
la tête sur la touche du 6. Vous l’obtiendrez 
donc avec SHIFT. 


A l'inverse, l’extraction d’une racine carrée s’écrit SQR. Ainsi : 


«Racine carrée de …» 







Placez obligatoirement 
la valeur (entre 
parenthèses) 


Si vous disposez d’un Oric — 1, exercez-vous sur diverses opérations ! 


3. Point-virgule et virgule 


On a déjà employé le point-virgule ; recommençons avec les dix premiers chiffres : 


2? 0;:1;:2;:3;:4;:5;:6;7;8;9 
(1 1 2 3 4 5 6 


7 8 9 







Chaque chiffre est reproduit, séparé par deux 
espace du précédent. 








Recommencez l’expérience, maintenant, en plaçant une virgule et non un point- 
virgule ; cela donnera : 


Se ne 7 espaces entre 
deux chiffres 
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EFFACEMENT 
DE L'ECRAN 


CTRL/L 





CTRL/J 
CTRL/K 


CTRL/M 
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Les chiffres ont été espacés de 7 espaces (« blancs »), sauf le dernier de la ligne qui 
n’a droit qu’à quatre. 


La virgule provoquera systématiquement 

une « tabulation » sur 8 colonnes, quelle que 
soit la longueur du nombre affiché ou du 
message, car on peut séparer par des virgules 
des messages alphabétiques encadrés par 

des guillemets. 


Votre écran est peut-être bien rempli, maintenant, Il a même probablement com- 
mencé à se « dérouler ». Voulez-vous l’effacer totalement ? Frappez CTRL/L : 
maintenez CTRL enfoncée et tapez L. Tout s’efface, le curseur se positionnant en 
haut et à gauche : 





Après CTRL/L 


Il n’est pas nécessaire, ici, de faire RETURN. Puisque nous avons expédié le cur- 
seur à l’angle supérieur de l’écran, profitons-en pour expérimenter les touches de 
déplacement du curseur, ces 4 touches marquées des flèches } ? —et <— de part et 
d’autre de la barre d’espacement. On verra leur utilité ensuite (pour dessiner, par 
exemple). Notez que quatre combinaisons, avec CTRL ont le même effet (vérifiez- 
le sur votre Oric) : 


e CTRL/H déplace le curseur d’un pas vers la gauche ; 
e CTRL/I en fait autant, mais vers la droite ; 
e CTRL/J va vers le bas ; 


e CTRL/K va vers le haut. 


Nous ne vous l’indiquons que pour mémoire : les touches fléchées sont plus prati- 
ques à l’usage. Il en irait d’ailleurs de même avec RETURN, qui peut être remplacé 
par CTRL/M : pourquoi faire simple quand on peut faire compliqué ? 


4. Variables et constantes 


Lorsqu'on jongle avec des chiffres ou des lettres, il est parfois très agréable de leur 
décerner un nom. Si par exemple, nous pensons à 1984, nous pourrions appeler cela 
tout simplement ANNEE. Prévenons la machine que, désormais, ANNEE va cor- 
respondre à 1984. Frappez simplement, mais en majuscules : 


Ready 
ANNEE=1984 





Ready 





CHAINES DE 
CARACTERES 


SYMBOLE $ 
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Maintenant, vous pouvez demander à l’ordinateur de quelle année il s’agit en fai- 
sant PRINT ANNEE, ce qui donne : 


? ANNEE 
1984 


Dans un ordre complet, on pourrait même écrire en utilisant notre fameux point- 
virgule, pour placer ANNEE à la suite : 





Placez ici un 







? "PARIS 
PARIS, L 


m- 


Ready 






La machine a remplacé 
ANNEE par sa valeur 





L’en-tête complète « Paris, le 14 juillet 1984 » peut, elle aussi, se voir remplacer 
par un nom ; appelons-le DATE. 


Il faut indiquer au Basic que DATE contient 
non seulement une suite de chiffres, mais 
aussi des lettres et même des symboles 

divers. C’est ce qu’on appelle une « chaîne 
de caractères » ; on la placera d’ailleurs 
entre guillemets. Pour cela, on va faire suivre 
son nom du symbole « dollars » ($). 


Le symbole $ précise qu’il s’agit d’une chaîne de caractères, une série de caractères 
absolument quelconques et mélangés. On écrira donc DATES, sans espace. Voici 
ce que cela donnerait : 









On affecte au nom DATES son 
équivalent... 






Cette procédure est importante à bien comprendre : à un rom, on fait correspon- 
dre un nombre ou une chaîne de caractères (mais dans ce cas, le nom est immédiate- 
ment suivi du symbole dollars et la chaîne est placée « entre guillemets »). Recom- 
mençons, simplement avec des chiffres : 


CONSTANTE 
VARIABLE 


CONSTANTE 
NUMERIQUE 


CONSTANTE CHAINE 
VARIABLE NUMERIQUE 


VARIABLE CHAINE 








AFFECTATION 


SYMBOLE 
D'AFFECTATION(=) 
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Là on demande X, mais comme on ne 
lui a attribué aucune valeur au préalable, 
l'ordinateur décrète qu'il vaut zéro! 





Sans affectation préalable, la valeur d’un nombre est zéro. 


En informatique, le « nom » est appelé une 
« variable » et ce qui lui correspond est une 
« constante ». 


Ainsi, N est une variable numérique et 3, une constante numérique. On peut passer 
à une variable chaîne en ajoutant le suffixe $ à N ; dans l’exemple suivant, la cons- 
tante chaîne est BONJOUR : 


N$="BONJOUR" 
Ready 

? N$ 

BONJOUR 


Notez que NS est un nom différent de N 
tout court, pour le Basic. N vaut toujours 3, 
comme on l’a défini ci-dessus. 


Il nous faut maintenant insister sur ce qu’on a appelé l’affectation, l'attribution 
d’une constante à une variable. 


L’affectation est faite à l’aide du symbole 
égal (=). Mais attention : il ne s’agit plus du 
tout du symbole mathémathique « égal » 

et sa signification est ici tout à fait 
différente. 


On a adopté ce symbole = car il a le mérite d’exister sur tous les claviers. Créer un 
nouveau symbole aurait posé des problèmes de clavier. Voici quelques exercices qui 
vont vous faire comprendre ce que signifie l’affectation (nous. avons seulement sup- 
primer les Ready entre les différents ordres que vous frappez et/ou les réponses de 
la machine) : 
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—————— On attribue d'abord 3 à M, )— — — — — — — — 
M=3 puis on demande la 
valeur de M 
? M 
3 
M=5 
5 Maintenant, c'est 5 


qu'on attribue à la même variable 
{« variable» est donc un nom bien trouvé !) 






Une variable, c’est un nom, immuable : vous pouvez lui attribuer des valeurs suc- 
cessives mais attention : à un instant donné, /a variable ne peut se voir affecter 
qu'une seule constante. Si vous lui affectez une nouvelle constante, la précédente 
est perdue ; on peut dessiner ainsi ce phénomène, en assimilant une variable à un 
tiroir, qui peut contenir des constantes successives : 


Ordre : 








sie 
LH 


Le nom M, représenté comme une boîte, correspond très exactement à une cellule 
(ou un groupe de cellules) de la mémoire centrale, qui ne peut contenir qu’une seule 
valeur à un moment donné. C’est pourquoi une nouvelle valeur chasse l’ancienne. 
Appliquons ce principe à quelque chose d’un peu plus fort, sachant que l’ancienne 
valeur de M est 5 : 


M=M#+ 2 


? M 
7 










Ça, c'est plutôt 
bizarre: lisez la suite 
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Rappelez-vous : le signe = n’est plus une 
égalité mathématique, mais un symbole 
d'affectation. 


Interprétez la première ligne ci-dessus par « M se voit affecter l’ancienne valeur de 
M, plus 2 ». Ce qui fait bien 7. 

NOMS DE VARIABLES Quels noms pouvez-vous attribuer à vos variables ? Toutes sortes de noms, mais 
attention : 





Votre Basic ne retiendra que les deux 
premiers caractères du nom attribué à la 
variable. 


Ainsi, pour lui, AN et ANNEE sont le même nom, puisqu'il n’aura retenu que les 
deux premières lettres de ANNEE. Par conséquent, usez des noms dépassant deux 
caractères avec modération et rigueur ; dans ce cas, choisissez des noms expressifs, 
évocateurs : AGE pour l’âge, par exemple, et non XYZ. 


Le nom de variable doit obligatoirement 
commencer par une lettre de l’alphabet, mais 
peut comprendre ensuite des chiffres. 


Ainsi, MI est autorisé, mais pas IM . Nous vous conseillons d’ailleurs, très généra- 
lement : 


e D'utiliser une unique lettre de l’alphabet comme nom de variable. 
e Ou encore, une lettre et un chiffre. 
e Ou alors, deux lettres. 


Vous ajouterez au bout le symbole $ s’il s’agit d’une chaîne de caractères (nous 
allons y revenir). 

Vous n’en êtes cependant encore pas quitte avec ces noms. En effet, toute une liste 
de mots est frappée d’interdit : 


e D'abord, tous les mots que le Basic utilise pour ses propres besoins. Par exemple, 
PRINT ne peut pas servir comme nom pour une variable. La liste complète de ces 

MOTS RESERVES mots interdits dont le Basic se réserve l’usage et qu’on appelle, pour cela, mots 
réservés, est donnée en fin d’ouvrage (c’est la liste des ordres Basic). 


e Ensuite, des mots incluants ces mots réservés. Par exemple, ON est un mot 
réservé ; donc, vous ne pouvez pas employer ON, non plus que DON, ou MAI- 
SON, ou SONGE... 

Si vous tentiez de le faire, le Basic refuserait votre ordre en affichant un 
« 2SYNTAX ERROR ». Ne vous entêtez pas (il est plus têtu que vous !), changez 
de nom ! Notez aussi que tous les noms de variables doivent s’écrire en majuscules. 


CHAINES DE 5. Chaînes de caractères 


CARACTERES 


Revenons aux chaînes de caractères, qu’on a définies comme étant une suite de 
caractères alphanumériques, symboles, espaces, etc. Voici quelques chaînes de 
caractères : « Belle Marquise, vos beaux yeux me font d'amour mourir ! », ou 
« Paris, le 14 juillet 1789 » ; ou bien « Ah ? » ; un espace peut constituer une 
chaîne : " ",et on peut même ne rien mettre dedans : ce sera une chaîne vide, qui 
s'écrit "” 
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CONCATENATION 
DE CHAINES 


SYMBOLE + DE 
CONCATENATION 





SONORISATION 
DES TOUCHES 


CTRL/F 





Un nombre pur devient une chaîne dès lors que vous le mettez entre guillemets ; 
ainsi, 1789 est une constante numérique mais pour le Basic, « 1789 » avec des guil- 
lemets devient une constante chaîne de caractères. Son nom de variable devra être 
suivi du symbole $. 

Utilisons maintenant 3 chaînes ; observez ce qui va se produire. On a volontaire- 
ment écrit des chaînes en majuscules et minuscules ; exercez-vous à taper ces deux 
sortes de caractères. 


Rappelez-vous : à la mise sous tension, 
l’Oric ne fournit que des majuscules. Pour 
passer au mode « machine à écrire » avec 
majuscules et minuscules, faites CTRL/T. 


Vous aurez directement les minuscules ; les 
majuscules seront obtenues avec SHIFT 
maintenue enfoncée. Pour revenir au mode 
« tout en majuscules », refaites CTRL/T. 


Attention, tous les ordres Basic et les noms 
de variables doivent être écrits en majuscules. 









Exercez-vous donc à utiliser 
aussi les minuscules ! 








A$="Bonjour" 
B$=" ‘” 
C$="Madame" 
? A$+B$+C$ 





Cette chaîne ne comporte 
qu'un unique espace 





Bonjour Madame 


La dernière ligne peut surprendre : on a mit bout à bout les trois chaînes, ce qu’on 
appelle « concaténer ». 


Le symbole + n’est plus, ici, le symbole 
de l’addition mais celui de la concaténation. 


Donc, A$ + B$ + CS$ signifie tout simplement concaténer les trois chaînes. 
Généralisons, maintenant, l’ordre d’affectation. C’est le suivant : 












Le symbole 
d'affectation 
Lu 










L'attribution 





Le nom à gauche 
du symbole = 


Nom de variable = Constante 


Avant de terminer ce chapitre, ajoutons encore quelques petites choses, relatives au 
clavier. Chaque frappe est sonorisée, ce que l’auteur apprécie (on « entend » qu’on 
a frappé un caractère). Si, toutefois, vous vouliez supprimer ce son, faites 
CTRL/F : les frappes ne seront plus sonorisées. Pour revenir à l’état antérieur, 
refrappez CTRL/F. 
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EFFACEMENT 
D'UNE LIGNE A propos de CTRL, sachez aussi que CTRL/N efface une ligne sur l’écran, celle 
qui est marquée par le curseur. Vérifiez-le, en emmenant le curseur sur des lignes 


| existantes, puis en faisant CTRL/N. On usera très modérément de cet ordre. 
CTRL/N 


QUESTIONS SUR LE CHAPITRE III 





C'est facile ; cochez la bonne réponse ! 


1. L'ordre PRINT signifie : 
O Afficher sur l’écran 
O Exécuter une opération 


Que répondra la machine aux ordres suivants : 
2. PRINT ”’3 +2” 
O 3+2 
O 5 


3. PRINT 3+2 
O 3+2 
O5 


4. PRINT ’’3+2 
DO ?SYNTAX ERROR 
0 3+2 


5.27 3+2 
[] ?SYNTAX ERROR 
05 


6. ? 19+10 
D 29 
O 119 


7.927X3 
O 21 
O0 79 


8.2 373 
D ?SYNTAX ERROR 
0 27 


9.7 ”9/3="’; 4+2 
O 3=4+2 
D 9/3=6 


Bon. Et maintenant : 
19. A quoi sert la virgule dans un ordre PRINT. 
O A séparer des constantes 
© A tabuler sur des colonnes de 8 caractères 


11. A$ est un nom de variable : 
DO Numérique 
D Chaîne 


12. A-t-on le droit d’écrire successivement. 


T=3%2 
T=T/6 


Et que donnera l’ordre d’afficher T ? 





Réponses page 30 


NUMEROTATION 


DES LIGNES 





CHAPITRE IV 


LE MODE PROGRAMMÉ 


Le chapitre précédent ne constituait qu’une petite mise en condition : on va, main- 
tenant, passer à la création de programmes réels. Pour cela, on va rédiger des listes 
d'instructions qui ne seront, cette fois, exécutées en salve que sur un ordre donné, 
et non plus une par une, au fur et à mesure de leur frappe. Ce mode s'appelle le 
« mode programmé », par opposition au « mode direct ». 


Principaux thèmes étudiés 


Numérotation des lignes 
RUN 

Adjonction d’une ligne 
LIST 

Mode programmé 
Remplacement d’une ligne 
Suppression d’une ligne 
Messages d’erreur 
Effacement de la mémoire 
NEW 

Programme de conversion 
INPUT 

GOTO 

Organigramme 

REDO FROM START 


1. Numérotation des lignes 


CTRL/C 

Branchement inconditionnel 
Effacement programmé de l’écran 
CLS 

Pour sauter une ligne 
CONT 

Code ASCII 

CHR$ 

Listage partiel 

Modification d’une ligne 
CTRL/A 

Temporisation 

WAIT 

EDIT 





Dans ce mode direct étudié dans le chapitre précédent, un ordre frappé au clavier 
était immédiatement exécuté, dès la frappe sur la touche RETURN. Or, un pro- 
gramme informatique peut se composer de plusieurs ordres successifs (jusqu’à des 
milliers...) : par conséquent, il faut pouvoir les ranger en mémoire sans les exécuter 
au fur et à mesure ; on passera à cette exécution au seul moment opportun. C’est 


un tel mode qu’on appelle le mode programmé, ou encore le mode programme. 


Première expérience, frappez : 


—. I n'y à plus recopie, exécution : le 
curseur revient en début de ligne 








Au RETURN, que se) __ __ __ _ 
passe-t-il ?... 









La machine n’a pas exécuté le PRINT « Bonjour » et le curseur est revenu à la 
ligne, attendant une nouvelle instruction. 
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Le seul fait de faire précéder l’instruction 
par un numéro d’ordre fait entrer la machine 
en « mode programmé ». 


Le numéro d’ordre, ou numéro de ligne d’instruction, peut être quelconque. Met- 
tez 1, ou 2, ou 3, ou 78, ou 357,... peu importe : l’essentiel, c’est la présence d’un 
numéro. 


Qu’est devenue l'instruction numérotée 19, alors ? Elle a été rangée en mémoire 


par le Basic, dès la frappe de RETURN. En voulez-vous la preuve ? On va lancer 
son exécution : pour cela, il faut utiliser le mot magique RUN (quelque chose 
comme : Marche !). Essayez tout d’abord de frapper ces trois lettres, suivies d’un 


RETURN : 












La machine a éxécuté 
le programme (d'une seule ligne) 
se trouvant en mémoire 


Frappez cet ordre sans 
numéro (donc, en 
mode direct, lui) 














Vous pouvez désormais relancer ce programme autant de fois que vous le voudrez, 
sans refrapper l'instruction, simplement avec RUN. Vérifiez-le : vous obtiendrez à 
chaque fois le même résultat. Cette ligne 19 constitue un programme minimal : pas- 
sons à un programme de longueur double. Frappez maintenant une nouvelle ligne 
19, terminée par un point-virgule, puis la ligne 29 suivante, et faites RUN : 











N'oubliez pas ce 
point-virgule pour 
afficher à la suite 


Respectez 
les numéros : 
dix, puis 
vingt. Vous 
allez 
comprendre 
pourquoi 






19 ? “BONJOUR; 
29 ? “MADAME” 













Catastrophe : on 
a oublié l’espace ! 






L’ordre RUN — donné en mode direct, lui, remarquons-le à nouveau — provoque 
l’affichage de BONJOURMADAME car on a oublié un espace. Qu’à cela ne 
ADJONCTION tienne ; créons-en un et pour cela, imaginons une instruction, de numéro 15, qui 
D'UNE LIGNE devrait s’intercaler entre 19 et 29. Quelle que soit la ligne au début de laquelle votre 
curseur se trouve, frappez : 






Cette chaîne ne contient 
qu’un espace 








15 ? ‘ N'oubliez pas le 


point-virgule 







L'espace s'est bien placé entre BONJOUR 
et MADAME. Comment cela se fait-il ? 





LIST 


MODE PROGRAMME 













C'est un nom de 
variable numérique 
interdit 
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Avez-vous bien saisi, maintenant, le rôle du 
point-virgule dans un ordre PRINT ? Il 
supprime le retour à la ligne ; l’affichage 
suivant se fera alors sur la même ligne. 


Pour comprendre ce qui s’est passé avec les lignes du programme, demandez au 
Basic de vous fournir le listage complet du programme qu’il a actuellement en 
mémoire, donc des trois lignes d’instructions que vous avez frappées. 


Demandez le listage se dit LIST. Frappez 
ces quatre lettres, puis faites RETURN. 
C’est donc un ordre en mode direct. 


Voici ce que cela donnera : 


ee, me mp ee me oo N'oubliez pas RETURN, 
ici 









" BON J OUR" : 
" MADAME " 


Remarquez que le Basic a remplacé les points d’interrogation par le mot qu’ils 
représentent, PRINT. Il vous affiche vos trois lignes et a introduit la ligne 15 entre 
la 19 et la 20. 


Vous comprenez, maintenant, pourquoi on 

a numéroté les lignes 19, puis 28 (on aurait 
continué par 39, puis 48, etc.) ? Lorsqu'on 
programme, on risque toujours d’oublier une 
instruction : elle sera facile à introduire si 
l’on s’est réservé des places dans la 
numérotation. 


Tenez compte d’un autre phénomène important : le Basic ne s’intéresse qu’à 
l’ordre croissant des numéros, et non à leur valeur « absolue ». Il rangera les ins- 
tructions en mémoire selon leur ordre croissant et les exécutera dans le même ordre, 
quel que soit le « pas ». Ainsi, au lieu d’écrire 15 pour l’instruction manquante, on 
aurait pu mettre 11, ou 12, ou 13, ou 14, ou... 19 : elle se serait placée entre 19 et 29 
de la même façon. 


Prenez donc, vous aussi, l’habitude de 
numéroter les instructions par « pas » de 19. 


Accessoirement, remarquez autre chose. On vient de voir que le fait de commencer 
une ligne par un numéro provoque le passage en mode programmé ; or, rappelez- 
vous ce qu’on a dit dans le chapitre precédent, à propos des noms de variables : ils 
ne doivent pas commencer par un chiffre. Dans ce cas, en effet, le Basic imaginerait 
que vous avez voulu numéroter une ligne. Si vous écriviez : 
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puis faisiez RETURN, le Basic penserait qu’il s’agit de la ligne 5 avec l’affectation 
R=38. Il introduirait donc cette ligne, comme le prouve le listage : 











Le nom (interdit) de variable 
5 R a été interprêté comme 





5 R=8 la ligne 5, avec la variable 
19 PRINT "BONJOUR; 

15 PRINT " ‘; 

29 PRINT "MADAME" 


Laissons cette ligne 5, pour l'instant, car elle n’interviendra pas dans l’exécution du 
programme (qui ne demande pas l’affichage de R). 


2. Les corrections 
Supposons qu’au lieu d’écrire Bonjour Madame, on veuille mettre Bonjour Mon- 


sieur : il faut modifier la ligne 29, en créer une autre plus exactement. Frappez-là 
ainsi : 


REMPLACEMENT 
D’'UNE LIGNE 





— — — — — © © © © —  — —  —  —  — — — — — —  —  — 


29 ? "MONSIEUR" 


LIST 
5 R=8 
19 PRINT "BONJOUR ; 
15 PRINT " ‘; 
29 PRINT "MONSIEUR" 


La nouvelle ligne 29 a pris la place de l’ancienne, qui est perdue. 


Pour remplacer une ligne d’instruction par 
une autre, il suffit de frapper la nouvelle 
instruction avec le même numéro de ligne. 


En poussant ce principe à son extrême, on peut se demander ce qui se passerait si 
l’on frappait un numéro de ligne existant, puis rien après, sauf le RETURN ? Et 
SUPPRESSION bien, la nouvelle ligne vide prendrait la place de l’ancienne, l’effacerait. Vérifions- 
D'UNE LIGNE le avec la ligne 5, inutile : 












RE RE ES Faites ici 
RETURN 






“ BON J OUR" : 
"MONS | EUR" 





L'ancienne ligne 
5 a bel et bien 
été supprimée 

SE A 
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Pour supprimer une ligne de programme, il 
suffit de frapper son numéro puis de faire 
RETURN. 


Rappelez-vous aussi que, pour supprimer une ligne en cours de frappe, donc avant 
d’avoir fait RETURN, on peut frapper CTRL/X qui l’annule. Ou alors, faire des 
DEL successifs. 


CTRL/X place une barre oblique inversée à la 
fin de la ligne en cours, l’annule, et râmène 
le curseur au début de la ligne suivante. 


Enfin, notez encore un point important, afin de ne pas être surpris par la suite. Si 
vous frappez une instruction comportant une erreur, le Basic pourra : 


e Soit la détecter aussitôt, dès la validation par RETURN et vous le signaler en 
refusant l’ordre (par exemple, en affichant « ?SYNTAX ERROR »). 





MESSAGES D'ERREUR 


e Soit ne pas la détecter au RETURN, donc l’accepter, mais s’apercevoir de 
l’erreur au RUN. Dans ce cas, il vous affichera l’un de ces nombreux messages 
d’erreur dont il a le secret. 


Si, donc, après un RUN l’ordinateur vous indique une erreur (en précisant son 
numéro de ligne), vérifiez attentivement la ligne indiquée pour la découvrir. Même 
si cette erreur ne vous saute pas immédiatement aux yeux, restez persuadé que c’est 
le Basic qui a raison et qu’il y en a bien une. A ce propos, méfiez-vous des noms de 
variables comportant un mot réservé : ce n’est pas toujours évident. 


3. Effacements de la mémoire et de l’écran 


On a déjà introduit plusieurs ordres en mémoire ; comment les effacer en bloc, tou- 
tes les lignes d’un’ coup ? Une méthode radicale consiste à arrêter un instant 
EFFACEMENT l’Oric — 1, puis à le remettre en service ; ses mémoires vives étant volatiles, elles 
DE LA MEMOIRE vont perdre toutes leurs informations. 
Une méthode plus élégante consiste à signifier à l’ordinateur qu’on vert libérer les 
mémoires pour créer un nouveau programme. C’est l’ordre NEW, pour nouveau ; 
«entrez-le » en mode direct (le mot entrer fait partie du jargon de l’informatique ; 
il signifie : frapper au clavier puis valider avec RETURN). Si, aussitôt après, vous 
demandez un LIST, vous n’obtiendrez plus rien : 










la mémoire 


Demandez maintenant 
le listage Ready 
du programme … 


.. Maïs il a été effacé : le Basic 
n'affiche donc plus rien ! 









Les valeurs que vous aviez tapées ou que le programme avait calculées ont disparu 
aussi, mais l’écran reste bien rempli ; profitons-en pour l’effacer. Vous souvenez- 
vous comment ? Oui, bravo : avec CTRL/L. Maintenez CTRL enfoncée et frappez 
L : tout s’efface et le curseur revient à l’angle supérieur gauche. 


4. Quelle est la vitesse du bateau ? 


On va profiter de ce bel écran pour rédiger un programme de caractère utilitaire : à 
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quoi correspond, en kilomètres par heure, la vitesse d’un bateau donnée en 
nœuds ? Dire qu’un bateau « file 15 nœuds » signifie qu’il se déplace à la vitesse de 
15 milles marins à l’heure, un mille marin valant 1 852 mètres (toutes choses que 
vous saviez). Le programme suivant va convertir les nœuds en kilomètres-heure ; il 
consiste à multiplier par 1,852 la vitesse en nœuds. 


Rappelez-vous qu’en Basic, la virgule 
décimale est remplacée par un point décimal 
et que le symbole de la multiplication est 
l’astérisque ( *). 


Entrez en machine le programme suivant, où N est le nom' de variable de la vitesse, 
en nœuds, et KM le nom de variable de la vitesse en km/h : 








Formule de 
calcul de la vitesse 






Laissez ici 
un espace 







19 N=15 
20 KM=Nx1.852 
30 ? "La vitesse est de 






En frappant ce programme, rappelez-vous que le texte des messages entre guille- 
mets peut être en minuscules, mais jamais les noms des variables ni d’ailleurs les 
ordres, tels que RUN, ou LIST, obligatoirement en majuscules. 


A la ligne 19, on attribue la constante 15 à la variable N (nœuds) ; en 29, on calcule 
la vitesse en kilomèëtres-heure, mais on n’affiche toujours rien. Ce n’est qu’en 39 
qu’on commande l’affichage PRINT (avec ?) d’une formule complexe : tout ce qui 
est placé « entre guillemets » va être reproduit tel, mais au centre, KM sera rem- 
placé par sa valeur. 


Lancez ce programme avec RUN et vous obtiendrez en-dessous : 


RUN 
La vitesse est de 27.78 km/h 


En effet, 15 nœuds correspondent bien à 27,78 km/h, puisque c’est l’ordinateur 
qui le dit. Essayez d’autres vitesses en nœuds, en refrappant la ligne 19 et en met- 
tant d’autres valeurs à la place de 15. Puis, quand vous en aurez assez de refrapper 
cette ligne, nous vous montrerons une façon plus intéressante de procéder. 


5. L'ordre d’entrée INPUT 


Cette fois, on va confier au programme le soin de vous interroger sur la vitesse en 
nœuds choisie. Pour cela, on remplace la ligne 19 par une nouvelle ligne compor- 
tant un ordre de « demande d’entrée d’une nouvelle donnée », ce qui se dit INPUT 
(entrez) en Basic. 

Vous vous souvenez que, pour remplacer une ligne, il suffit de refrapper la nouvelle 
avec le même numéro. Faites donc, en frappant les cinq lettres de INPUT : 





19 INPUT N 


En majuscules, ne 
l’oubliez pas ! 
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Vérifiez, avec LIST, que la substitution s’est bien faite : 


LIST Tout va 
19 INPUT N bien 
20 KM=Nx1.852 
30 PRINT "La vitesse est de “:;KM:"km/ 
h" 










Parce que le Basic écrit le mot PRINT en 
toutes lettres dans le listage, il provoque un malencontreux 


retour à la ligne. Tant pis : il faut s’y faire. 
SR RS SR ER di 


Effacez donc à nouveau l’écran avec CTRL/L, puis lancez un RUN et observez ce 
qui s’affiche : un simple point d’interrogation au début de la ligne ! Cela donne : 






Le curseur est ici 








La machine a posé ce 
point d'interrogation 





En effet, lorsque le Basic rencontre un ordre INPUT (ce qu’il vient de faire), il affi- 
che un ? et stoppe toute activité, attendant que vous frappiez une donnée au clavier 
que vous validerez avec un RETURN. Dès lors, il poursuit l’exécution du pro- 
gramme. 


Attention : ne confondez pas le ? affiché 
par le Basic qui vient de rencontrer un 
INPUT avec le ? que vous placez pour 
remplacer PRINT. C’est bien le même 
symbole, mais pour deux choses différentes. 


En réponse à la demande du programme, frappez par exemple 9, pour voir, puis 
faites RETURN ; l’affichage complet sur l’écran sera : 











Vous avez frappé ce 9, 
puis fait RETURN 





RUN 
? 9 
La vitesse est de 16.668 km/h 









Vous pouvez frapper à nouveau sur RUN et introduire d’autres valeurs, l’essentiel 
étant que vous compreniez parfaitement le fonctionnement de INPUT. 


6. Et si l’on recommençait ? 


Si vous aviez de multiples conversions à exécuter, les frappes successives de RUN 
pour relancer le programme seraient fastidieuses. Dans ce cas, il est plus simple 
d’ajouter une nouvelle instruction, à la fin de ce programme, qui lui ordonne de 
recommencer en renvoyant à son début. 
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GOTO 


ORGANIGRAMME 








On appelle cela 
une «boucle» 





PRATIQUE DE L’ORIC-ATMOS ET 36 PROGRAMMES 


Cette nouvelle instruction portera le numéro 49. Elle ordonnera au programme 
d’aller sans discussion à l’instruction 19, donc de revenir à son début. Aller à se dit 
go to, en anglais ; et s’écrit en un seul mot GOTO. Entrez : 





9 INPUT N 
9 KM=Nx1.852 
9 PRINT "La vitesse est de ";KM;" km/ 


On peut représenter ce programme par un petit dessin qu’on appelle un organi- 
P p 8 


gramme. Le voici : 
Combien de nœuds 
voulez-vous ? 







Ligne 10 
Affichage du résultat dans son 
message Ligne 30 






Organigramme du 
programme de conversion 


Au passage, notez que l’organigramme répond à quelques règles de dessin qui veu- 
lent que les ordres d’entrée (INPUT) ou de « sortie » vers l’écran (PRINT) soient 
inscrits dans des parallélogrammes, alors que les ordres d’exécution « internes » à 
la machine figurent dans des rectangles. 

Toujours est-il que cet organigramme montre bien que, de la fin du programme, on 
repart à son début en une « boucle ». Faites RUN ; la machine va vous interroger 
une première fois : supposons que vous frappiez 9. Elle va afficher le résultat puis 
vous ré-interrogera à nouveau : on suppose que vous frappez 11 ; puis ça continue, 
et vous frappez 7... Cela donnera sur l’écran : 





REDO FROM START 






CTRL/C 





Elle attend, en effet, 
la frappe d’un nombre 
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RUN 

? 9 

La vitesse est de 16.668 km/h 
? 11 

La vitesse est de 29.372 km/h 
9? 7 

La vitesse est de 12.964 km/h 
? 










> RS 
La machine ne se re om 


et en redemande … On 
suppose que vous avez fini vos conversions 


En effet, elle obéit aveuglément au programme et ne saura pas que vos calculs sont 
terminés. Si vous frappiez n’importe quoi d’autre que des chiffres, elle serait inter- 
loquée : 






De guerre lasse, vous avez 
frappé ceci 








? Mais j'ai fini ! 
?REDO FROM START 
? 











Traduction (approximative) de la 
réponse de la machine : «Je ne veux pas 
le savoir; recommencez votre entrée !» 


La formule « REDO FROM START » signifie, en effet : « Refaites à partir du 
début votre frappe ». Comment indiquer à cette obstinée que nous en avons ter- 
miné ? Simplement en frappant la combinaison CTRL/C, ce qui donnera, si l’on 
reprend la fin de l’écran précédent : 





ns  — Ici, vous avez frappé 
CTRL/C 






La machine est. désormais, prête à accepter d’autres ordres, même un nouveau 
RUN pour relancer le même programme. | 

En général, lorsqu'on utilise une instruction INPUT, on s’arrange pour qu’un mes- 
sage explicatif précède le point d’interrogation sur l’écran. Vous obtiendrez ce 
résultat en créant une nouvelle ligne, 5 par exemple ; mais il faudra aussi que le 
GOTO de la ligne 4ÿ renvoie en 5 et non plus en 19, ce qui va vous obliger à refrap- 
per ces deux lignes : 


5 ? "Donnez la vitesse en noeuds: 
49 GOTO 5 


De ce fait, le programme complet, suivi de son lancement, donne : 
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BRANCHEMENT 


INCONDITIONNEL 





EFFACEMENT 
PROGRAMME 
DE L'ECRAN 





5 PRINT "Donnez la vitesse en noeuds :" 
19 INPUT N 


29 KM=N*x1.852 
839 PRINT "La vitesse est de “;KM;"km/ 
h" 
49 GOTO 5 
RUN 
Donnez la vitesse en noeuds : 
? 6.78 
La vitesse est de 12.55656 km/h 
Donnez la vitesse en nœuds: 







ls jusqu'à un 
CTRL/C 
Faites un CTRL/C pour stopper ce programme. 


Notez encore que l’ordre GOTO commande 
un branchement « inconditionnel », sans 
discussion, à la ligne indiquée. C’est 
pourquoi on l’appelle « branchement 
inconditionnel ». 


7. Effacement programmé de l’écran 


On peut fignoler ce programme en commençant, dès le RUN, par effacer l’écran. 
Oui, mais comment introduire un CTRL/L dans le programme ? C’est parfaite- 
ment possible ; la preuve, on vous montrera comment plus loin. Mais la méthode la 
plus simple consiste à introduire l’ordre d’effacement de l’écran, ce qui se dit en 
anglais « Clear screen » (effacer l’écran) et s’écrit, en abrégé, CLS. Essayez-le 
d’abord en mode direct ; frappez CLS, puis RETURN, et vous obtiendrez le bel 
écran suivant : 





Ayant vérifié que CLS fonctionne, vous pouvez l’introduire maintenant dans le 
programme, par exemple en ligne 3 : 


Dès lors, et avec le RUN, le programme commence par effacer l'écran ; vous n’y 
trouverez plus que les lignes dont vous avez commandé l’affichage. 

Un dernier défaut subsiste encore : les réponses ne sont pas séparées de nouvelles 
questions ; introduisons un saut de ligne, d’un calcul à l’autre, avec cette ordre 
bizarre à première vue : 


POUR SAUTER 


UNE LIGNE 








Etc, jusqu'au CTRL/C 


CONT 






Le programme reprend et 
attend une nouvelle valeur 
à convertir 
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35 ? Qu'est-ce-que 
rm. cela signifie ? 
NV mt 









Ici, on a frappé un numéro de ligne suivi par un ordre PRINT (? en abrégé), suivi 
lui-même par. rien du tout ! Dans ce cas, le Basic va lire ce PRINT et s’apercevra 
qu’il ne doit rien afficher ; par conséquent, il sautera une ligne. Revoyons le pro- 
gramme complet, d’abord : 






LIST 

3 CLS 

5 PRINT “Donnez la vitesse en noeuds:" 
19 INPUT N 

29 KM=Nx1.852 

39 PRINT "La vitesse est de “;KM;"km/ 
h" 

35 PRINT 

49 GOTO Pour sauter une 

ligne avant de 

RUN recommencer 






Avec le RUN puis le RETURN, vous verrez : 


Donnez la vitesse en noeuds: 
? 33 
La vitesse est de 61.116 km/h 


Ici, une ligne 
Donnez la vitesse en noeuds : a été sautée 


Notez bien le rôle de ce PRINT suivi par 
rien du tout (si ce n’est RETURN) : il sert 
à sauter une ligne. 


Deux PRINT successifs auraient servi à sauter deux lignes, par exemple. 

Pour en terminer avec ce programme, vous faites un CTRL/C mais, pris de 
remords, vous voulez continuer vos conversions : que faire ? Frappez simplement 
CONT, pour continuer, et il reprendra au point exact où vous l’aviez lâché. La 
séquence serait la suivante : 


Donnez la vitesse en noeuds: 
? 5 
La vitesse est de 9.26 km/h 


Donnez la vitesse en noeuds: 








Vous avez fait, ici, 
un CTRL/C … 











.… Mais vous vous reprenez et 
voulez continuer : frappez 
ceci 


AT 


Les parenthèses sont obligatoires : autrement, 
le Basic ne comprendrait pas 


D RE sut 
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Dès lors, vous pouvez effectivement continuer. 


8. Le code ASCII 


Sachez une chose importante : chaque caractère que vous pouvez frapper au cla- 
vier, qu’il soit simple ou combiné avec SHIFT ou CTRL, dispose d’un code numé- 
rique allant de 9 à 255. 


L'ensemble de ces codes est normalisé (plus ou moins...) et relève des normes 
ASCII, ce qui se prononce Aski et vient de « American Standard Code for Infor- 
mation Interchange ». Les normes strictes ASCII, allant de 32 à 127, sont données 
en fin de ce livre ; aux autres codes correspondent des ordres divers ou des caractè- 
res graphiques sur lesquels on reviendra. | 


On peut demander au Basic ün caractère quelconque en frappant son code. Sachant 
que caractère se dit « character » en anglais, on comprendra que l’ordre se code 
CHR ; en outre, il doit être suivi du fameux symbole dollars ($) puisqu'il s’agit de 
caractères précisément. On écrira donc PRINT CHRS suivi du code du caractère 
voulu. Le T, par exemple, a pour code 84, ce que vous pouvez vérifier dans le 
tableau ASCII ; pour afficher un T, vous pourrez écrire (faites-le en mode direct) : 














ES GS on Vous voulez obtenir le caractère 
? CHR$(84) correspondant au code 84 … 
F 


… La machine vous 






Tentez votre chance avec d’autres valeurs ; par exemple, le / minuscule se code 
116 : il y a toujours une différence de 32 entre majuscules et minuscules. 

Or, l’effacement qui se frappe avec CTRL/L, possède aussi son code : c’est le 12. 
Vous devinez alors que l’on puisse aussi commander l'effacement avec ? 
CHRS$(12). Vérifiez-le en mode direct : l’effet sera semblable à celui de CLS, le mot 
« Ready » venant alors toutefois sur la 3° ligne et non sur la seconde : 











Après un 
? CHRS (12) 
en mode direct 






Vous pouvez introduire cet ordre dans notre programme précédent, en 3, à la place 
de CLS : 


= — — Pour effacer l'écran ) — — _ __ — 
3 ? CHR$(12) | 


Relancer le programme : vous n’y verrez guère de différence, et vous n’en verrez 
plus du tout si vous ajoutez un point-virgule au bout de la ligne 3, puisque grâce à 
lui vous supprimez un passage à la ligne ! 
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9. L’édition 


Vous l’apprendrez vite à vos dépens, la mise au point d’un programme fonction- 
nant comme on l’espérait impose bien des retouches et des corrections. Nous avons 
déjà passé en revue certaines méthodes, mais il vous faut d’emblée aller encore un 
peu plus loin. 

Vous serez amené à vous servir fréquemment de ces diverses méthodes ; c’est pour- 
quoi nous vous invitons à lire ce passage, à expérimenter ce que nous vous propose- 
rons, puis à y revenir dès lors que le besoin s’en fera sentir. 

Considérons l’ordre LIST. Vous pouvez très bien lister une seule ligne, par exemple 
la ligne 19 du programme précédent (nous supposons qu’il est toujours en 
mémoire) : 








LIST 10 
19 INPUT N 


Vous demandez 
la seule ligne 10 … 


. Qui apparait 
aussitôt 






— — — ee ee me un me = = 


Vous pourriez demander le listage du programme jusqu’à la ligne 29 incluse, par 


exemple, ce qui s’écrirait : 
LISTAGE PARTIEL 
(ioubrez pes le tiret 
{signe «moins») 
LIST -20 
3 PRINT CHR$(12) 
5 PRINT ROUE la vitesse en noeuds: 


19 INPUT 
29 KM=Nx1.852 













{oi les 4 lignes, 
jusqu'à 20 


Ou encore, vous pourriez souhaiter les lignes à partir de 39 incluse : 








N'oubliez pas 
le tiret après 
le numéro de ligne, cette fois 





— me me me me me ce mme me me me me mme cs 






LIST 30- 
39 PRINT "La vitesse est de ";KM"km/ 
h 


35 PRINT 
49 GOTO 5 







Voici le listage, de 30 
à la fin du programme 


Dernière formule, enfin, le listage à partir de 5, par exemple, jusqu’à 29 inclus ; 
voici : 
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LIST 5-20 


5 PRINT "Donnez la vitesse en noeuds: 
19 INPUT N 
29 KM=Nx1.852 


Supposons maintenant que vous vouliez modifier la ligne 49 et écrire à la place 
GOTO 3 (au fait, pouvez-vous deviner quel sera le résultat de cette modification ?). 
MODIFICATION Vous pourriez refrapper totalement cette ligne (pourquoi pas ?). Mais il existe une 

D'UNE LIGNE méthode souvent préférable permettant d'apporter des modifications à une ligne 
sans avoir à la refrapper. Pour cela, il faut « éditer » cette ligne, ce qui signifie 
dans ce jargon très discutable de l’informatique : l’afficher (ou l’imprimer). C’est 
là où LIST intervient. Notre programme étant court, listez-le en entier. Puis : 





1) — Servez-vous des touches fléchées (autour de la barre d’espacement) pour 
emmener le curseur tout au début de la ligne 49. Voici ce que cela donnera (on ne 
vous montre que cette seule ligne) : 








Vous avez amené le 
curseur, ici, 






49 GOTO 5 


2) — Servez-vous, maintenant, de la combinaison CTRL/A pour déplacer le cur- 
seur vers la droite (maintenez CTRL enfoncée et frappez plusieurs fois sur A). 

CTRL/A Avec CTRL/A, le curseur « relit » les caractères qu’il croise et, pour l’ordinateur, 
tout se passe comme si vous les refrappiez. Stoppez le curseur sur le 5. 


3) — Maintenant, frappez votre correction, donc un 3 au lieu du 5. Vous pourriez 
de la même façon effacer des caractères avec DEL ; si d’autres caractères à conser- 
ver suivaient, il vous faudrait les « recopier » en promenant dessus le curseur, tou- 
jours avec CTRL/A. 


Attention : seul CTRL/A relit et « recopie » 
en mémoire les caractères sur lesquels il 
passe. Cela, en mode « édition ». 


4) — Faites RETURN : la nouvelle ligne est enregistrée. 


5) — La correction est terminée, mais il reste encore une précaution à prendre : 
extrayez le curseur du corps du programme, emmenez-le au-dessous avec la touche 
marquée d’une flèche verticale (+) car sinon, ce que vous frapperiez à nouveau vien- 
drait se conjuguer avec les lignes existantes, donnant un résultat imprévisible. Ou 
alors, et plus simplement, effacez l’écran avec CTRL/L. 

Vous pouvez maintenant vérifier l’état de la nouvelle ligne 49 modifiée, avec LIST, 
ou simplement LIST 49 ; vous obtiendrez : 


LIST 40 
49 GOTO 3 


Que pensez-vous que cela donnera, avec un RUN ? A chaque nouvelle vitesse en 
nœuds frappée, l’ordinateur calcule la vitesse correspondante en kilomètres-heure, 
l'affiche, puis efface l’écran et repose la même question. Vérifiez-le avec un RUN. 
Hélas ! L’affichage du résultat est instantané et l’écran est effacé tellement vite 
qu’on n’a même pas le temps de le lire ! 


TEMPORISATION 


WAIT 





EDIT 
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Aussi va-t-on prier l’ordinateur de bien vouloir attendre un instant, avant de 
ré-effacer l’écran. Aftendre se dit WAIT, en anglais ; on va faire suivre WAIT 
d’une durée, sachant qu’une durée de 1 équivaut à 19 millièmes de secondes ; par 
conséquent, pour « temporiser » une seconde, on écrira WAIT 199 (car 199 fois 
19 ms = 1 seconde). Introduisez cette instruction en remplacement de la ligne 35, 
qui n’a plus d’intérêt de toute façon : 





Pour mémoire, voici à quoi ressemble maintenant notre programme complet (vous 
l’obtenez, comme de coutume, avec un LIST) : 


LIST 

3 PRINT CHR$(12) 

5 PRINT "Donnez la vitesse en noeuds:" 
19 INPUT N 

29 KM=Nx1.852 

39 PRINT "La vitesse est de “";KM; "km/ 
h" 

35 WAIT 1060 

49 GOTO 3 


Refaites un RUN : cette fois, l’affichage dure une seconde. Voulez-vous en modi- 
fier la durée ? Vous savez comment le faire sans refrapper la ligne, avec un LIST 
35, les touches fléchées pour amener le curseur au début de la ligne, CTRL/A pour 
l’emmener sur le 1. Frappez alors un 2, par exemple, puis « recopiez » les deux 
zéros en frappant encore sur CTRL/A ; le curseur étant « sorti » du texte, faites 
RETURN, effacez l’écran, et lancez le programme avec RUN. La temporisation 
sera de 2 secondes. 


Voulez-vous la porter à 5 ? Il faut frapper 599, mais on va vous indiquer une der- 
nière méthode. Faites apparaître la ligne 35 en utilisant, cette fois, un ordre qui 
porte bien son nom : EDIT. Ecrivez EDIT 35. Vous constaterez que le curseur reste 
alors sagement au début de la ligne 35 qui apparaît ; 


EDIT 35 
85 WAIT 299 





Vous pouvez emmener alors le curseur avec CTRL/A sur le 2 afin de le modifier en 
5, tout comme on l’a fait précédemment, refaire CTRL/A pour « sortir » le cur- 
seur, faire RETURN : la modification est terminée et la temporisation a été portée 
à cinq secondes. Vérifiez-le avec un RUN. 


Avec de la pratique, vous apprendrez à combiner ces diverses possibilités (nous ne 
vous en avons d’ailleurs pas tout dit ici), et vous acquerrez les automatismes qui 
vous rendront les modifications et corrections simples. Afin d’acquérir cette indis- 
pensable pratique, nous allons maintenant vous proposer à la fin de chaque chapi- 
tre, des programmes modèles, allant jusqu'aux jeux. N’abordez toutefois ces pro- 
grammes qu'après avoir répondu avec succès aux exercices de la page 60. 


Entrez les programmes dans votre Oric un seul à la fois.., ils pourraient se gêner, 
et essayez-les. Les exemples d'utilisation sont là pour vous guider. Grâce aux 
remarques décortiquez le programme et changez une virgule, remodelez à votre 
guise. 

C’est l’occasion de mettre en pratique les modifications grâce à EDIT et CTRL/A 
dont on vient de vous parler. 
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Vous retrouverez les mots 
INPUT PRINT WAIT GOTO 


et vous consulterez une portion de la table de codification des caractères grâce à la 
fonction CHRS$ et son complément ASC. 


QUESTIONS SUR LE CHAPITRE IV 


1. Y a-t-il une erreur dans la séquence suivante ? 


2. Pour lancer l’exécution d’un programme, l’ordre est : 
O RUN 
[ GO 


3. Un point-virgule placé dans un ordre PRINT : 
O Commande un retour à la ligne 
C Supprime le retour à la ligne 


4. Peut-on ré-afficher un programme se trouvant en mémoire ? 
O Oui, avec l’ordre LIST 
Ü Non, il faut le refrapper 


5. Pour supprimer une ligne de programme, il faut : 
C1 Frapper son numéro, puis faire RETURN 
CO Frapper son numéro, puis faire CTRL/X 


6. L’ordre NEW sert à : 
[ Relancer l’exécution d’un programme 
CO Effacer la mémoire 


7. Pour effacer l’écran, il faut faire : 
O CLS 
CO CTRL/L 
O ? CHRS(12) 


8. Si le programme doit demander à l’opérateur de nouvelles données, vous devrez intro- 
duire une instruction : 
O1 ENTER 
CO INPUT 


9. Un organigramme est : 
CO La représentation graphique d’un algorithme 
CO Le dessin d’un programme 


19. Pour interrompre un programme en cours d’exécution, vous ferez : 
DO CTRL/C 
DO STOP 


11. Pour créer une temporisation de cinq secondes, vous écrirez : 
O STOP 5 
O WAIT 599 


12. L’ordre EDIT 29 
D Supprime la ligne 29 
CO L’affiche sur l’écran pour corrections 
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UNE ADDITION QUI N’EN FINIT PAS 


CLS INPUT PRINT GOTO VWAIT 





La scène se passe à la sortie d’un magasin : un client qui vient de faire 
ses achats s’aperçoit qu’il a oublié son carnet de chèques et que son porte- 
monnaie risque de ne pas suffire à tout payer. 

La caissière tape alors les prix en faisant afficher au fur et à mesure 
la somme due, jusqu’à ce que le client lui crie « halte ». 


CLS 

S=0@ REMARQUES 
INPUT P 
S=S+P 
PRINT S 


GOTO 30 30 à 60 — c’est le serpent qui se mord la queue : 
une boucle 


10 — on efface l’écran 


20 — on efface l’ardoise du client 





Le spectacle suivant se déroule devant les yeux du client inquiet : 


Pour arrêter on a 
tapé CTRL C 
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Il faut bien avouer qu’on peut faire mieux comme affichage, en étant 
plus bavard : un petit message pour la caissière, un autre pour le client, à 
condition de modifier deux lignes. 


18 CLS 
20 S=0 
40 S=S+P 


50 PRINT"'SOMME DUE ";S 


60 GOTO 38 


PRIX D'UN ARTICLE? 23 


SOMME DUE 23 
PRIX D’UN ARTICLE? 34 
SOMME DUE 5? 

PRIX D’UN ARTICLE? 56 
SOMME DUE 113 

PRIX D’UN ARTICLE? 12 
SOMME DUE 125 

PRIX D'UN ARTICLE? 


Ready 





Comment savoir à quel article on en est ? Il suffit de les compter et d’af- 
ficher ce numéro. 

Mais l'instruction INPUT ne sait écrire que des messages figés. Il faut 
donc distinguer l’affichage du message destiné à la caissière précisant le 
numéro de l’article et l’introduction du prix : 


19 CLS 
15 N=] 
2@ S=@ 


25 PRINT'ARTICLE NO ";N; 
30 INPUT P 
40 S=S+P 30 — introduction du prix 


50 PRINT"'SOMME DUE ";S 


99 N=N+1 


60 GOTO 25 


REMARQUES 


25 — affichage du message 





ARTICLE NO 1 ? 8 
SOMME DUE 8 
ARTICLE NO 2 ? 4,5 


SOMME DUE 12.5 
ARTICLE NO 3 ? 67.35 
SOMME DUE 793.85 
ARTICLE NO 4 ? 122 
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SOMME DUE 291.85 
ARTICLE NO 5.7 


Ready 





L’écran se remplit vite de phrases et de nombres et si on veut y voir 
clair il vaut mieux ne garder que ce qui concerne l’article en cours. On net- 
toiera l’écran entre deux articles. Mais attention il faut avoir le temps de 
lire la somme avant qu’elle ne s’efface ! L’instruction WAIT réalisera ce délai 
ajustable au réflexe humain : 


52 PRINT"'SOMME DUE ";S 


55 N=N+1 REMARQUES 
56 WAIT200 56 — attente : 2 secondes 


57 CLS 
60 GOTO 25 


57 — effaçage 





On a maintenant un écran qui contient seulement deux lignes comme 
celles-ci avant de s’effacer : 


ARTICLE NO 3 ? 45,50 
SOMME DUE 89.5 


La numérotation des lignes de ce programme est irrégulière puisqu'il 
a été écrit par retouches successives, ce qui est un cas très réaliste. 
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UN CHRONOMÈTRE DIGITAL 
CLS PRINT WAIT GOTO 





Voici une première forme de programme de chronométrage à la seconde. 
On ne peut guère faire plus simple : c’est une application de l’instruction 
WAIT. 

WAIT 100 provoque une pause d’une seconde, et pourtant nous avons 
dû mettre WAIT 95. Pourquoi ? La portion du programme qui est répétée 
chaque seconde ne contient pas que cette instruction. L’exécution des lignes 
20, 30, 40 et 50 prend au total 5/100 seconde environ. 


S=0 REMARQUES 


CLS 10 — point de départ 


PRINT S 20 à 60 — boucle répétée chaque seconde 


S=S+1 
WAIT 95 
GOTO 20 


50 — délai : 95/100 seconde 





Nous ne reproduisons pas d’exemple d’utilisation : les secondes vont 
défiler en haut de l’écran, et vous pourrez vérifier vous-même que le chro- 
nométrage est précis à moins d’une seconde par minute. Nous ferons mieux 
(plus complet et plus précis) au chapitre VII. 
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3 


CARACTÈRES ET CODES : 


LA NORME ASCII 


CLS (CHR$ ASC PRINT GOTO WAIT 





18 C=32 
20 PRINT C;,CHR$CC) 


38 C=C+1 
4@ GOTO 28 





PRINT CHR$(12) signifie afficher le caractère dont le code est 12 et 
nous venons de voir que ceci avait pour effet d’effacer l’écran et de remettre 
le curseur en haut à gauche. Ce code 12 correspond à une norme très répan- 
due qui est valable aussi pour les imprimantes et signifie passer à la page 
suivante. Il y a ainsi 256 codes auxquels correspondent 256 caractères ou 
effets spéciaux. Entre 32 et 127 on retrouve à peu près partout les mêmes 
caractères selon la norme de codification ASCII. Ainsi le code de la lettre 
A est 65, pour B c’est 66... 


Vous trouverez en fin d'ouvrage la table pour les codes 32 à 127. Mais 
vous pouvez interroger l’ordinateur pour connaître cette table : 


PRINT CHR$(65) vous donnera A, 


et à l’inverse PRINT ASC(" A‘) affichera 65. 


Affichage d’une partie de la table 


On peut écrire par exemple, le programme de consultation à partir du 
code 32 (en-dessous les effets spéciaux sont très perturbants) : 


REMARQUES 

10 — code du premier caractère 

20 à 40 — boucle 

20 — affichage du code puis du caractère 


30 — code suivant. 
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35 WAIT 30 
36: £LS 


4@ GOTO 28 


Au cours du spectacle, ne soyez pas inquiets pour votre ordinateur ou 
votre téléviseur : tout s’arrange à la fin ! Eh oui, cette boucle qui ne devrait 
jamais s’arrêter se bloque grâce à une erreur : ?Illegal quantity error in 20 : 
on n’a pas le droit de demander le caractère dont le code est 256 (ou plus). 
Ouf ! 


251 
252 
2353 


254 

255 

256 

PILLEGAL QUANTITY ERROR IN 28 
Ready 





Si vous trouvez que la table défile trop vite, ajoutez une temporisation 
à la ligne 35, et pour mieux isoler les différents effets effacez l’écran : 





30 C=C+1 






36 CLS 


18 C=ASCC"A") 
20 PRINT CHR$(C),C 


35 WAIT 30 


40 GOTO 20 


Entre les codes 32 et 126 on obtient la liste des caractères normaux dis- 
ponibles sur l’ORIC, en commençant par l’espace. 

Entre 127 et 159, les résultats sont parfois surprenants : certains codes 
ont des effets sur la couleur du fond ou de l’encre, d’autres sur la synchro- 
nisation de l’image ou encore masquent une partie de l’écran. On obtient 
même des hiéroglyphes étranges venus d’ailleurs. Nous aurons l’occasion de 
revenir sur ces codes spéciaux. 


Si on ne connaît pas le code du premier caractère souhaité 


Comment démarrer la consultation à la lettre A, par exemple, si l’on 
ne connaît pas le code de cette lettre ? En le faisant calculer par le programme : 







REMARQUES 





Ici on écrit 
d’abord le 

caractère puis son 
code 


10 — code du premier caractère affiché 










20 à 40 — boucle 


20 — affichage du caractère puis de son code 





Le spectacle change légèrement dans la région 129 à 143 et on observe 
l’effet des caractères spéciaux sur leur propre code. 
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4 


L’'INITIALE D'UN MOT 


LEFT$  LEN 





LEFTS$ 


Certaines fonctions du Basic permettent de se livrer à toutes sortes d’opé- 
rations chirurgicales sur les chaînes de caractères. Commençons par l’extrac- 
tion de la partie gauche d’un mot ou d’un groupe de mots grâce à la fonc- 
tion LEFT$ (de l’anglais left : gauche). N’oubliez pas le dollar car le résul- 
tat fourni par LEFT$ est une chaîne de caractères 


LEFT$(« NON »,2) vaut « NO » 
et si C$ vaut « PARISIEN », 
LEFTS$(CS$,5) vaut « PARIS » 
Vous avez compris, le deuxième nombre indique combien de caractères 


on souhaite extraire, et on commence par le plus à gauche. 
Utilisons cette fonction pour connaître l’initiale d’un mot. 


19 INPUT'"'TAPER UN MOT" ;M$ 
20 PRINT'L’INITIALE EST ";LEFTSCM$,1) 


RIGHTS 


LEN 


Un exemple d’utilisation : 


RUN 
TAPER UN MOT? ZINC 
L?INITIALE EST 2 


Ready 





Pour l'instant l’ordinateur ne nous apporte rien. Ça deviendrait plus 
intéressant si l’on avait emmagasiné en mémoire un tas de noms et qu’on 
veuille les ressortir par leur initiale. Patience ! 


L’équivalent de LEFTS$ pour la partie droite s’appelle RIGHTS (right 
signifie droite en anglais), par exemple : 

RIGHTS (« BONJOUR »,4) vaut « JOUR » c’est-à-dire les 4 derniers 
caractères. 


Si on a besoin de connaître le nombre de caractères d’un mot ou d’un 


groupe de mots, c’est la fonction LEN (du mot anglais Length : longueur) 
qui va vous renseigner : LEN (« OUI ») vaut 3. 


W$="ANTICONSTITUTIONNELLEMENT" 


PRINT LENCWS) 
25 
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UN TÊTE A QUEUE VERBAL 
MIDS 





Comment écrire à l’envers : de droite à gauche ? Il suffit de parcourir 


le mot ou la phrase caractère par caractère, en commençant par le dernier. 
L'affichage se terminera faute de caractère, parce que nous n’avons pas encore 
vu comment finir plus joliment ! La fonction à tout faire sur une chaîne de 


caractères s’appelle MID$ (de l’anglais middle : milieu) et elle permet d’analy- 
ser un fragment de chaîne situé n’importe où. 


MIDS$(’TARABISCOTTE””,5,3) vaut ”’BIS”’ 


parce que B est le cinquième caractère de la chaîne de départ et qu’on a pris 
trois caractères. 


MIDS(’TARABISCOTTE”’,5) donne ’’BISCOTTE”’ : le nombre de 
caractères à extraire n’est pas précisé si MID$ va jusqu’au bout. Pour isoler 
le caractère numéro P d’une chaîne située dans M$, il suffit d’écrire 
MID$(M$,P,1). 


INPUT'TEXTE À INUERSER";T$ 


C=LENCTS$) 

CLS REMARQUES 

PRINT MID$SCT$,C;,1); 20 — on commence par le dernier caractère 
C=C-1 50 — on régresse 


GOTO 40 





Dans l’exemple suivant : 


TEXTE À INUERSER? ARROSOIR 


RIOSORRA 
PILLEGAL QUANTITY ERROR IN 408 
Ready 





l’exécution se termine sur le message ?ILLEGAL QUANTITY ERROR au 
moment où on cherche à extraire le caractère situé avant le premier (C=0) . 
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UN COMPTE ROND 
STR$ VAL 





Grâce aux fonctions LEFT$, RIGHTS, MID$ et LEN, la manipulation 
des chaînes de caractères est plus commode que celle des nombres. Mais on 
peut l’appliquer aux nombres en utilisant la fonction STR$ qui convertit un 


STR$(1357) vaut *’1357”° et on pourra toujours faire le trajet inverse 
pour retrouve un « vrai » nombre : 


STRS$ VAL(” —285’) donne le nombre — 285 


Par exemple, si on souhaite arrondir un prix donné en francs, à la dizaine 
de francs supérieure, il suffit de changer le chiffre de droite pour un zéro 
VAL et d'augmenter de 1 son voisin (le chiffre des dizaines). 


On peut écrire une première version du programme. 


CLS 

INPUT'"NOMBRE À ARRONDIR" ;N 

PRINT SPC(22) ; "CHIFFRES" 

PRINT SPC(13);"DE DROITE DIZAINE UNIT 


N$=STRS$(N) 
L=LENCNS) REMARQUES 
U$=RIGHTSCNS, 1) 
D$=MID$SCN$,L-1,1) 
N$=LEFT$CNS, L-2) 50 — conversion en chaîne de caractères 
PRINT'"'AU DEPART :" 70 — le chiffre des unités 
R=SGNCUALCUS )) 
D$=CHR$SCASC(D-)+R) 
PR I NT “ RE TENUE SUR LES DI ZAINES “ ;R 120 — la retenue qu’il faut ajouter au chiffre des 
‘ dizaines (0 ou 1) 


PRINT SPC(16):3;N$,,D$,, US$ 
U$="Q" 190 — reconstruction du nombre complet (toujours 
sous forme de chaîne de caractères) 


PRINT"'REMISE À ZERO DE L’UNITE" 
PRINT SPC(16);N$,,D$,,US$ 
N$=N$+D$+U$ 

PRINT"CE QUI DONNE : ";N$ 


20 — introduction du nombre à arrondir 


90 — les autres 
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Exemple : 


NOMBRE À ARRONDIR? 1234 
CHIFFRES 
DE DROITE DIZAINE UNITE 


AU DEPART 

12 e | 4 
RETENUE SUR LES DIZAINES 1! 

12 4 4 
REMISE À 2ERO DE L’UNITE 

12 4 Q 
CE QUI DONNE : 1240 


Ready 





Si on désire arrondir à la dizaine la plus proche, il faut modifier la ligne 120 : 


18 CLS 
28 INPUT'NOMBRE À ARRONDIR" ;N 

30 PRINT SPCC22) ; "CHIFFRES" 

40 PRINT SPC(13);"DE DROITE DIZAINE UNIT 
E 

5Q N$=STRSCN) 

60 L=LENCNS) 

20 U$=RIGHTS$CNS, 1) 

80 D$=MIDSC(NS$;L-1,1) 

9Q N$=LEFT$CNS;L-2) 

128 PRINT"AU DEPART :" 

119 PRINT SPCC16) NS; ,D$, , US$ 

128 R=INTCUALCUS)/5) 

130 D$-CHR$CASC(DS)+R) 





si le chiffre des unités est inférieur à 5 la retenue R vaudra 0 sinon ce sera 1. 


NOMBRE À ARRONDIR? 1234 
CHIFFRES 
DE DROITE DIZAINE UNITE 
AU DEPART 
4 3 4 
RETENUE SUR LES DIZAINES @ 


12 3 4 
REMISE À ZERO DE L’UNITE 

12 3 
CE QUI DONNE : 1238 
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NOMBRE À ARRONDIR? 1236 
CHIFFRES 
DE DROITE DIZAINE UNITE 


AU DEPART 

12 3 6 
RETENUE SUR LES DIZAINES 1 

12 4 6 
REMISE À ZERO DE L’UNITE 

12 4 Q 
CE QUI DONNE : 1249 


Ready 





On retrouvera ces manipulations de chaînes de caractères ainsi que les 
instructions INPUT WRITE GOTO dans les chapitres suivants, Mais l’ac- 
cent sera mis sur les instructions nouvelles. 
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REPONSES AUX QUESTIONS SUR LE CHAPITRE IV 


1. Non, il n’y a pas d’erreur, ici. Vous pouvez attribuer aux lignes n’importe quel 
numéro : respectez seulement un ordre croissant. 


2. L’exécution d’un programme est commandée par RUN. L'ordre GO n'existe 
pas, tel, de toute façon (sauf sous des formes telles que GOTO). 


3. Le point-virgule, dans un ordre PRINT, supprime le retour à la ligne. L’affi- 
chage se poursuivra sur la même ligne. 


4. Oui, l’ordre LIST ré-affiche le programme en mémoire. 


5. Pour supprimer une ligne de programme, il faut frapper son numéro puis 
RETURN. Rappelez-vous que CTRL/X sert à abandonner ce qu’on vient de frap- 
per ; la machine n’en tiendra pas compte ; par conséquent, il n’y aurait pas sup- 
pression. 


4. NEW sert à effacer la mémoire (vive, centrale), qui contient le programme, les 
données et les résultats. 


7. Ces trois ordres effacent l’écran : à vous de choisir celui que vous préférez ! 
Rappelez-vous que la frappe de CTRL/L ne peut se faire qu’en mode direct. Par 
contre, CLS et ? CHRS$(12) peuvent intervenir en mode direct ou en mode pro- 
grammé. On préfèrera CLS, tout simplement parce que c’est plus court à frapper et 
plus évident (si vous vous souvenez de sa signification anglaise : « Clear Screen », 
soit « effacer l’écran »). 


8. C’est INPUT qui sert à introduire de nouvelles données en cours de l’exécution 
d’un programme (on a inventé, ici, le mot ENTER pour les besoins de la question). 


9. Ici, on a répété deux fois la même chose, d’abord de façon « savante », puis très 
simplement. En effet, un « algorithme » est la « logique » du programme, la façon 
dont il est organisé pour atteindre le résultat voulu. Et « représentation graphi- 
que » ou « dessin » sont très synonymes. 

19. Pour interrompre un programme, il faut faire CTRL/C. 


11. Vous créerez une temporisation de cinq secondes avec WAIT 599. 


12. L'ordre EDIT 29 affiche la ligne 29 sur l’écran afin que vous puissiez la corri- 
ger. 


CHAPITRE V 


COULEURS ET SONS PROGRAMMÉS 


On va enfin vous présenter la gamme des couleurs de l’Oric. Avec, de plus, les sons 
programmés, au nombre de quatre : une clochette, un tir d’arme galactique à laser 
(eh oui !), un coup de feu et une explosion. Pour les créer, il nous faut vous initier 
aux boucles du type FOR... TO et aux nombres aléatoires. Mais votre peine va aus- 
sitôt trouver sa récompense, croyez-le. 


Principaux thèmes étudiés 


Boucles Emboîtage des boucles 


FOR... TO 

NEXT 

Organigramme de 
boucle FOR... TO 

Instructions multiples 

Double-point 


Pas dans FOR... TO 

STEP 

Décomptage avec FOR... TO 
Couleurs 

PAPER 

INK 

Remarques 

REM 

Défilé des couleurs 


Règles avec les boucles 
Sons 

CTRL/G 

PING 

ZAP 

SHOOT 

EXPLODE 
Nombres aléatoires 
RND 

Notation scientifique 
Entiers 

INT 

Bataille galactique 
RND(8) 


FOR... TO 


NEXT 


BOUCLES 





RND(-N) 


1. Boucles avec les ordres FOR... NEXT 


On a vu, dans le chapitre précédent, que l’ordre GOTO pouvait commander un 
« bouclage ». L'ordre FOR... NEXT permet également la création de boucles, 
mais avec deux différences essentielles : 


1) — Voici le principal : vous contrôlez le nombre de boucles à effectuer, puisque 
FOR... TO en a fixé les limites. 


2) — Puis, mais c’est le moins important pour notre action, cette instruction se 
compose en réalité de deux ordres distincts. L’un est FOR... TO ce qui signifie 
« pour. jusqu’à » et sert à fixer des limites, le second est NEXT («au 
suivant ! »), qui renvoie à la valeur suivante. Il faudra donc deux lignes. 

C’est facile à vérifier avec ce court programme qui va afficher les trois chiffres 1, 2 
et 3. Entrez-le en machine et exécutez-le pour voir ce que cela donne ; on vous 
l’expliquera aussitôt après ; on a fait suivre l’exécution, ici : 


74 


ORGANIGRAMME 
DE LA BOUCLE 


FOR... TO 
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19 FOR N=1 TO 3 
20 ? N 
30 NEXT N 
40 ? "C'est fini!" 
RUN 
1 
2 
3 
C'est fini! 
Read) 


Que s’est-il passé ? A la ligne 19, on a fixé les limites de N, qui pourra aller de 1 à 3, 
en commençant par 1. 


Le comptage se fait par unités successives : 
1, puis 2, puis 3... A moins qu’on n’ajoute 
des ordres contraires, comme on va le voir 
plus loin. 


Puis, en 29, on commande l’affichage de N, donc de 1 au premier tour. Le pro- 
gramme rencontre alors la ligne 39 qui lui demande le N suivant ; il se branche alors 
à nouveau en 19 et, s’apercevant que la valeur 1 a déjà été utilisée, prend la 2 et 
l’attribue à N. En 29, il affiche 2, Puis passe en 39 qui renvoie en 19 où N prend la 
valeur 3. Celle-ci est affichée à son tour, puis 39 renvoie encore en 19 mais là, le 
programme s’aperçoit que toutes les valeurs possibles ont été utilisées. Par consé- 
quent, il saute toute la chaîne et poursuit à l’instruction suivante qui est la 49 ; il 
affiche alors « C’est fini ! ». 


Lorsque toutes les valeurs permises ont été 
utilisées, le programme passe à l’instruction 
qui suit la ligne NEXT. 


On peut illustrer ce processus à l’aide de l’organigramme ci-contre. 

Remarquez le losange de l’organigramme : il pose une question, contenue implici- 
tement dans l’ordre FOR... TO : /a valeur finale est-elle dépassée ? si non, on bou- 
cle ; si oui, on passe à l’instruction suivante. On emploie donc deux sommets de ce 
losange, selon que la réponse est NON ou OUI. Chaque fois qu’on posera une 
question, on l’insérera dans un losange. 

L’instruction de traitement contenue dans la boucle peut fort bien faire appel à 
autre chose que la variable contenue dans la boucle FOR... TO ; modifiez simple- 
ment le programme précédent à la ligne 29 pour obtenir : 


19 FOR N=1 TO 3 
20 ?"OUI,'; 
89 NEXT N 


49 ? “C'est fini!” 


RUN 


OUI,OUI, OUI, C'est fini! 
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Initialisation de la boucle : 
on fixe les valeurs limites 










de... à soit FOR... TO de la Ligne 10 
variable (N, ici) 
Instruction de traitement : 
ici, l’affichage de N Ligne 20 
Valeur suivante de N Ligne 30 





Boucle 
FOR … TO 






Question 
implicite 
de FOR … TO 










Dépasse-t-on la 
valeur finale ? 


Affichage final de 
WU C’est fini ! ” 





Ligne 40 





Organigramme de la 
boucle FOR... TO 





Comment faire pour écrire C’est fini ! sur la ligne suivante ? Réfléchissez un ins- 
tant : il faut annuler l’effet du point virgule prédécent, de la ligne 29, mais seule- 
ment lorsqu’on sort de la boucle. Qu’à cela ne tienne : on va placer un PRINT rien 
du tout, sans point-virgule final, lui ; on obtiendra cet affichage sur /a même ligne 
que les OUI,OUI,OUI, mais il provoquera un retour à la ligne pour l’affichage 


final. Cela donne, en récapitulant : 
Ajouter cette ) 
instruction … 
D 








Nous avons mis 
PRINT en toutes 
lettres en supposant 
que vous avez fait 
un LIST 
















19 FOR N=1 TO 

29 PRINT "OUI," 

39 NEXT 

35 PRINT 

49 PRINT "C'est fini!" 
RUN 

OUI,OUI,OUI, 

C'est finit! 










… Et l'affichage final 
se fera sur la ligne 
suivante 







Et comment pourriez-vous faire pour séparer d’une ligne vide les « OUI,OUI,OUI », 
de « C’est fini ! » ? On nous l’a déjà dit dans le chapitre précédent, rappelez- 
vous : placez un autre PRINT : 
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INSTRUCTIONS 
MULTIPLES 





DOUBLE-POINT 








3 instructions 
sur une seule 
ligne 


PAS DANS FOR... TO 


STEP 












PRATIQUE DE L’ORIC-ATMOS ET 36 PROGRAMMES 







Ce PRINT 
commande … 





"C'est fini!" 


OZ  -B 0) GG ND 
CC eouese 


N 
Ü 





— 


Mais pourquoi employer deux lignes, 35 et 36, qui ne comprennent pas grand chose 
chacune ? Ne pourrait-on les regrouper ? Oui, le Basic accepte qu’on place plu- 
sieurs instructions sur une unique ligne (avec un unique numéro). 


Pour séparer des instructions sur une ligne, 
on place un double-point (:). C’est le 
« séparateur » officiel. 


Aussi, on peut ré-écrire encore ainsi le programme précédent, en cumulant même 
3 lignes. Commencez par supprimer 35 et 36, puis refrappez ainsi la ligne 49. 










Ne vous égarez pas 
dans tous ces : 
? 





Les : servent de 
séparateurs 






40 ?:7:9? “C'est fini!" 


Z-1Z 
Z 


Le RUN, bien entendu, procurerait le même résultat que ci-dessus. 


2. Boucles FOR... TO avec un pas 


On a vu que la boucle FOR... TO « incrémentait » la variable d’un pas positif uni- 
taire : la variable N passait successivement à 1, puis 2, puis 3. Or, on peut lui impo- 
ser un pas différent, par exemple un demi, ce qui s’écrit 9,5 en français courant. 
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Or, rappelez-vous que le Basic, d’origine 
anglaise, place un « point » décimal là où 
nous mettons une « virgule » décimale. Donc, 
au lieu d’écrire #,5 on écrira 9.5. 

Bien mieux, le Basic estime que le 9 avant 

le point est encore superflu. On peut donc 

se contenter d’écrire .5. 


Si vous placez cependant un Ÿ, cela ne constitue pas une faute. 
Avez-vous conservé en mémoire le programme précédent ? Si oui, commencez par 
modifier la ligne 19 pour obtenir : 


Pour apporter cette correction, on va employer EDIT. Faites successivement. 
e EDIT 19, puis RETURN. La ligne 19 apparaît sur l’écran. 

e Avec CTRL/A, amener le curseur après le 3 de FOR N=1 TO 3”. 

e Frappez alors STEP .5, puis RETURN. 


La correction est achevée. Modifiez alors les lignes 29 et 49 pour obtenir : 





D BON —- 








Voici le 
résultat 





a Oo 


Vous pourriez choisir un pas absolument quelconque, par exemple de 2. Modifiez à 
nouveau la ligne 19 ainsi, et lancez le programme ; cela donnera : 


D PO — 
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DECOMPTAGE 


AVEC FOR... TO 
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Le pas peut être négatif, si l’on veut décompter, mais il faudra alors aller de 3 à I et 
non plus de 1 à 3 ; il suffit, à nouveau, de ne modifier que la seule ligne 19 : 









Veillez à bien 
écrire : de 3 





D ON 
“NO es 


Le pas est 
négatif 


Vous pouvez combiner tout ceci à volonté, pas quelconques, positifs ou négatifs. 
Faites quelques expériences par vous même, pour bien « vivre » cet ordre. 


3. Avec 8 couleurs 


Votre Oric dispose de 8 couleurs, le blanc et le noir compris. Chaque couleur se voit 
affecter un numéro et c’est par ce numéro qu’on l’appellera. Il s’agit de : 


Noir 
Rouge 
Vert 















Jaune 
Bleu 
Magenta 






Vous pouvez mettre en couleur la « page de texte », l’équivalent de la feuille qui 
apparaît sur l’écran et s’appelle en langage Oric « PAPER », ou le texte lui-même : 
INK (pour encre). 

Commencez par mettre la page en rouge. Faites : 


Avec RETURN, la «page» 
va passer au rouge 














Avec RETURN, 
le texte se met en vert 






REMARQUES 
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Ne soyez pas trop exigeant avec votre 
téléviseur couleur : les couleurs pourront 
ne pas être aussi parfaites qu’Oric le 
souhaite. Après tout, qu'importe si 

le résultat reste intéressant ? Nul n’est 
parfait, encore moins les réglages de votre 
téléviseur. 


Voici, maintenant, un petit programme destiné à faire défiler les 8 couleurs, cha- 
cune restant affichée une seconde, en « page ». Rappelez-vous que lorsque l’encre 
et la page sont de la même couleur, l’affichage se perd, devient invisible. Ce pro- 
gramme emploie une boucle FOR... TO. En outre, on lui a ajouté un titre, sous 
forme de remarque. 


L'ordre REM, pour « remarque », sert à 
placer des explications pour celui qui lit 

le programme, et uniquement pour lui. 
Lorsque le Basic rencontre l’ordre REM, il 
saute tout ce qui suit et passe à la ligne 
suivante. 


Voici ce programme : 











C’est une « REMarque» ; elle ne joue aucun rôle 
dans l'exécution du programme 
LE 





















19 REM Defi des couleurs . 

20 FOR P=0 7 La variable P va 
30 PAPER P prendre toutes les 
40 WAIT 190 valeurs, de 0 à 
59 NEXT P 7 

69 ? "C'est finil” 





Pour laisser la couleur 
affichée pendant 






Faites un RUN : les 8 couleurs vont se succéder. Si vous voulez que le processus 
continue, remplacez 69 par : 


La boucle sera bouclée à perpétuité, ou jusqu’à un CTRL/C. 


Compliquons le jeu en faisant varier la couleur de la feuille (PAPER) mais aussi 
celle du texte (INK), à l’aide de deux boucles, cette fois : une boucle P pour 
PAPER, et une boucle I pour INK. Le principe est le suivant : on affiche une page 
d’une couieur donnée, puis on fait défiler les couleurs du texte ; lorsqu'elles sont 
toutes passées, on change la couleur de la page et on recommence ; etc. Etudiez 
bien ce programme pour comprendre le fonctionnement de ces deux boucles, car 
c’est très important ; c’est le seul concept nouveau que nous voulons d’ailleurs vous 
présenter ici. 
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Plus exactement, le processus sera le suivant ; 






e La page passe en noir (@) 
— le texte passe en noir (@) 
— En rouge (1) 
— En vert (2) 
— En jaune (3) 
— En bleu (4) 
— En magenta (5) 
— En cyan (6) 
— En blanc (7) 





On a là une 
sorte de «petite» 
boucle interne … 











Et par 
opposition, une 
«grande» boucle 
externe 


e La page passe en rouge (1) 
— Le texte passe en noir ÿ 
— En rouge (1) 






Ici, répétition de la 
«petite» boucle interne 


«Grande» boucle : 
PAPER 







.… Etc. ! 






Le programme est ainsi : 


FOR P=0 TO 7 





— © © ©] O O1 À CN = 
6666666666 


9 ? "C'est fini!” 


Lancez ce programme : vous verrez se succéder les pages de couleurs, puis, et pour 
chaque page, les textes en couleurs. A la fin, en ligne 99, on a placé un INK 9, 
pouvez-vous deviner pourquoi ? La dernière « image » couleur de ce programme 
donne INK 7 et PAPER 7, donc du texte blanc sur fond blanc ! Vous ne lirez pas 
grand chose. Aussi a-t-on rétabli l’encre en noir (@). 


Notez ce point capital : les deux boucles sont 
« emboîtées », la « petite » est intégralement 
contenue dans la « grande », ce que l’on a 
marqué sur le listage du programme. 


L’organigramme du programme (ci-contre) montre bien, lui aussi, la présence de 
ces deux boucles. 





EMBOITAGE A ne jamais 


oublier 





DES BOUCLES 





Deux boucles (deux, ou davantage) doivent 
être soit totalement emboîtées (contenues 
l’une dans l’autre), soit totalement distinctes. 


On peut illustrer cela ainsi : 


Grande 
boucle 


Organigramme de la 


double boucle de couleurs 
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Titre sous forme de remarque 


Limites des couleurs de page : toutes (9 à 7) 








Limites des couleurs de texte (INK) : les mêmes 


Commande de mise en couleur du papier 
Commande de mise en couleur du texte 
Temporisation 












Petite 
boucle 


A-t-on fait défiler toutes 
les couleurs pour le 
texte ? 










(Alors à la suivante) 





A-t-on fait défiler toutes 


(Alors à la suivante) les couleurs pour la 






Affichage final 
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REGLES AVEC 


LES BOUCLES 





CTRL/G 
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Boucles 
emboîtées 


Pas de chevauchement, SVP ! 


Boucles 
distinctes 


Cela signifie encore que, si on ouvre la boucle A, puis on démarre la boucle B, i/ 
faut refermer d’abord B (avec un NEXT B) puis après seulement A (avec un NEXT 
A). Sinon, vous commetteriez cette erreur typique des débutants, 

Revoyez le programme ci-dessus : on a ouvert (FOR... TO) la boucle P, puis I, 
mais on a refermé d’abord I (avec le NEXT de la ligne 79) puis P (avec le NEXT de 
89). Il n’aurait pas fallu faire l’inverse : attention à ce type d’erreur ! 


Nous supposons que vous multipliez 
maintenant les essais. Si vous sentez que vous 
perdez la maîtrise de l’Oric, qu’il « ne veut 
plus vous obéir », c’est que vous avez 
commis une erreur quelque part, ou une 
fausse manipulation. Dans ce cas, n’hésitez 
pas à faire un « RESET ». 


Pour cela, retournez l’Oric et insérez la pointe d’un crayon dans la grande fenêtre 
qui apparaît en-dessous. Pressez le poussoir (que vous ne distinguerez pas : dom- 
mage !). Vous provoquez ainsi ce redémarrage qu’on appelle le RESET (« remise 
en condition de départ »). Il laisse intact le contenu des mémoires centrales. On 
l’appelle encore un redémarrage à chaud. 

N'oubliez pas, non plus, de faire NEW pour effacer la mémoire lorsque vous 
redoutez qu’un nouveau programme n'’interfère fâcheusement avec un ancien. 


4. Des sons aussi 


Votre Oric dispose de la couleur (on vient de le voir), sait dessiner (patience : 
d’autres chapitres suivent !), et produit des sons ou même de la musique. On va 
examiner ici les sons, laissant la musique à un prochain chapitre. 


Vous avez d’abord remarqué que CTRL/G produisait un tintement de clochette. 
Vous obtiendrez le même effet, dans un programme, en écrivant PING. Essayez, 
en mode direct : 


_———————- Puis RETURN 
PING 








Chaque touche est, en outre, sonorisée. Vous pouvez supprimer ce son en faisant 
CTRL/F, ou le rétablir avec la même combinaison (vérifiez-le). 
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Mais voici mieux : 


e L'ordre ZAP produit un sifflement décroissant sensé imiter une arme galactique 
à laser. C’est une simple question d’imagination ! 


e L’ordre SHOOT simule le brüit d’uh coup de fusil. 


e Enfin, EXPLODE, comme son nom l'indique, simule une explosion. 


SHOOT 


Expérimentez ces ordres en mode direct, puis organisez une fusillade galactique 
EXPLODE avec la séquence suivante : 





Pour 10 tirs 










19 FOR N=1 TO 10 
+ 2 à _ : C'est le son de l'arme 
29 NEXT N galactique 





Avec le RUN, vous entendrez dix tirs galactiques, très réguliers. Trop, même : il 
faudrait qu’ils surviennent un peu à l’improviste, au hasard ; maïs ça aussi, votre 
ordinateur sait le faire. 


5. Nombres au hasard et bataille galactique 


Une fonction spéciale du Basic sert à tirer des nombres au hasard, c’est RND ; ces 
lettres proviennent du mot anglais « random », soit aléatoire, au hasard. L’ordre 
NOMBRES ALEAT OIRES RND demande à être suivi par un nombre absolument quelconque mais placé entre 
parenthèses ; le Basic a, parfois, de telles fantaisies... Ne mettez ni zéro, ni nombre 
négatif, et par paresse, utilisez le 9 qui se trouve situé sur la même touche que 
l’ouverture des parenthèses. Essayez simplement en mode direct : 





Ordre de tirage et d'affichage 
d'un nombre aléatoire 

















L'auteur a obtenu cette valeur 
bizarre, un peu inférieure à 1. Vous tirerez 
peut-être une autre valeur 






Créons un court programme pour afficher plusieurs valeurs aléatoires. Voici ce 
programme, suivi d’un RUN : 








————————————————;>© Pour dix 
19 FOR N=1 TO 19 valeurs aléatoires 


29 ? RND(9) 













39 NEXT N 
RUN 
.103117626 
1719848388 Voici ce que l'auteur 
.551834438 a obtenu 
5617419111 
.960296981 
.547150891 
.802192734 
.814107273 
.131137465 
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NOTATION 


SCIENTIFIQUE 
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Il est possible que vous obteniez les mêmes valeurs ; en tous cas et à chaque remise 
en service de l’Oric, vous retrouverez la même série. 


En effet, ces valeurs sont appelées 

« aléatoires » mais elles sont en réalité 

« pseudo-aléatoires ». Elles appartiennent à 
une très grande série répétitive de nombres, 
toujours inférieurs à 1. 


Parfois même, vous obtiendrez des nombres tellement petits qu’ils seront affichés 
en notation scientifique. Ce type de notation utilise les puissances ; si vous les avez 
étudiées, cela ne vous déconcertera pas. Ainsi, rappelez-vous qu’un 1 suivi de 
douze zéros (soit 199999000000) peut s’écrire aussi 19/2 en écriture courante. De 
même, un millionnième (9,999991) peut s’écrire 19-6. En informatique, on écrira : 


1E + 12 pour 10/2 
1E — 96 pour 19-6 


La lettre E représente la « base » 19 ; le cœfficient qui suit, avec son signe, est 
l’exposant. Avant le E peuvent se trouver d’autres chiffres, avec le signe plus ou 
moins. 


C’est ce mode d’écriture qu’on appelle donc la notation scientifique ; ne vous lais- 
sez pas démonter par elle et, à la rigueur, ignorez les valeurs aléatoires en notation 
scientifique ! 


Mais revenons à nos tirages : les nombres sont bien petits, et il va falloir les multi- 
plier sérieusement pour obtenir des valeurs supérieures. 


D’abord, notez que les tirages sont compris 
entre 8 (qui peut être tiré) et 1 (mais le 1 ne 
sera jamais tiré : on ira jusqu’à 
9.999999999...). 


Si l’on veut obtenir des valeurs comprises entre 9 et 15, par exemple, il faudra mul- 
tiplier les nombres tirés par 15. Modifiez la ligne 29 du programme précédent pour 
introduire la multiplication par 15, et relancez-le. Vous souvenez-vous comment 
l’on procède pour modifier une ligne ? Utilisez LIST, ou LIST 29, ou EDIT 29 au 
choix. Cela donnera : 


19 FOR N=1 TO 19 
29 PRINT RND(9)x*x15 
30 NEXT N 












RUN 
7.5769316 
6.94258929 Valeurs obtenues 
14.7681638 l'eut. 
1.90229746 per l'auteur 
8.98045929 
12.9876921 
9.32972512 
13.1995662 
4.199904824 
14.9729614 


ENTIERS 


INT 


BATAILLE 


GALACTIQUE 
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Remarquez qu’en multipliant par 15 des 
valeurs comprises entre # (inclus) et 

1 (exclu), on peut obtenir toutes les valeurs 
entre # (inclus) et 15 (exclu), donc 14,9999... 


Ces nombres décimaux sont encore très embarassants. On va éliminer la partie 
décimale (à droite de la virgule, pardon : du point décimal) en réclamant au Basic 
la seule partie entière de ces nombres. Sachant qu’entier se dit « integer » en 
anglais, vous comprendrez pourquoi l’ordre se code INT. 


Vérifiez le fonctionnement de INT en mode direct ; il exige que le nombre soit mis 
entre parenthèses à sa suite. Par exemple, faites : 









L'’entier de 123, 456, 
est bien 123 


? INT(123.456) 
123 


En passant, notez une singularité de l’ordre INT : il n’arrondit pas et fournit tou- 
jours la valeur entière immédiatement inférieure. Par exemple (vérifiez-le) : 










L'entier (immédiatement 
© inférieur) de 7,89 est 


? INT(7.89) bien 7. 
7 


Ready 
INT(-7.89) 






? 






…. Mais celui de —-7,89 


Refermons cette parenthèse pour en ouvrir d’autres, à la ligne 29 et comme 
annoncé. Modifiez cette ligne de façon que le programme soit le suivant, puis 
lancez-le : 










Attention aux parenthèses : il 
faut toujours en refermer autant 
qu’on en a ouverts ! 












19 FOR N=1 TO 19 

20 PRINT INT(RND(9)x*x15) 

89 NEXT N 

RUN 
9 
19 
8 
7 L'auteur a 
1 obtenu ces 
2 belles valeurs entières, 
1 cette fois 
14 
13 


Enfin, nous disposons de valeurs faciles à comprendre et à exploiter : on va les 
introduire dans notre guerre galactique pour espacer au hasard les tirs. Ce nouveau 
programme résulte de l’introduction d’un tirage aléatoire entre @ et 15 dans 
l’ex-ordre 39 de temporisation du programme galactique précédent. Voici ce que 
cela donne : 
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19 FOR N=1 TO 19 
29 ZAP 

30 WAIT INT(RND(9)x*x15) 
49 NEXT N 


C’est déjà plus réaliste. N'hésitez pas à varier la temporisation en multipliant par 
199 au lieu de 15, dans la ligne 29, par exemple, ou par d’autres valeurs. 


Sachez cependant encore deux choses, à propos de l’ordre RND : 


e Si vous faites RND(0), le Basic vous renverra le dernier nombre aléatoire tiré, et 
non un nouveau. 


e Si vous utilisez un nombre négatif, par exemple RND(-—9), vous recevrez une 
valeur, fixe, et liée au nombre négatif, qui détermine le point de départ de la série. 
Ainsi pourriez-vous la modifier à chaque lancement. 


Ainsi, avec RND(—9), l’auteur a toujours obtenu (en notation scientifique, remar- 
quez) 3.3647666E — 98. D’autres valeurs négatives fournissent d’autres nombres. 
Nous nous en serions voulu de ne pas vous l’avoir précisé ! 
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QUESTIONS SUR LE CHAPITRE V 
N'hésitez pas, dès maintenant, à imaginer par vous-même des courtes séquences de 


programmes. C’est, de loin, le meilleur exercice. Mais voyons, au préalable, si vous 
répondrez facilement à ces quelques questions fondamentales. 


Y a-t-il ou n’y a-t-il pas d'erreur dans les lignes suivantes, extraites de 
leur contexte ? 


. FOR N=1 TO N=23 

. FOR N=37 TO 73 

. FOR N=37 TO 73 STEP 25 

. FOR N=37 TO 73 STEP 199 

. FOR N=37 TO 73 STEP .ÿ1 

. FOR N=37 TO 73 STEP —25 

. FOR N=37 TO 9 STEP -.1 

. FOR N=1 TO 3:?2N: NEXT N 

. FOR N=T+2TOT+5:7T: NEXTT 


Bon ! Si vous vous en êtes bien sorti, bravo. Continuons, alors : 


10. L’ordre PAPER 3 commande : 
[] Le passage en jaune (couleur 3, c’est vrai !) de la page 
[l Le passage en jaune du texte 


11. L’ordre INK = 1 commande 
[ Le passage en rouge (couleur 1, c’est vrai aussi !) de la page 
[ Le passage en rouge du texte 


12. La réponse de l’ordinateur à une instruction 99 REM 4 *4 sera : 
O 16 


[ Rien du tout ! 


13. L’ordre RND sert à 
[] Fournir une valeur aléatoire 
[ Rendre (« RND ») des couleurs ou des sons 


14. Pour la machine, RND(9) et RND(18) sont-ils équivalents ? 
DO Oui 
CO Non 


Et pour terminer, une question très difficile : 


15. Vous voulez simuler un jet de dé, donc obtenir toutes les valeurs comprises entre g 
(inclus) et 6 (inclus). Quel ordre appliquerez-vous : 
[ ? RND(6) 
© ? INT(RND(9) *6) +1 
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COMPTE À REBOURS 
FOR NEXT PING 





Dans les jeux chronométrés, il est souvent plus utile de savoir le temps 
qu’il reste à jouer. Il n’y a qu’à décompter, par exemple à partir de 60 jusqu’à 
zéro, en Ôtant 1 chaque seconde : 


FOR S=6@ TO 1 STEP -1 


CLS 

PRINT S REMARQUES 

WAIT 95 40 — pause pour battre la seconde 
NEXT S 70 — le gong ! 


PRINT S 
PING 





REPONSES AUX QUESTIONS SUR LE CHAPITRE V 
1. Non, ça ne va pas ! Le nom de la variable ne doit être écrit qu’une seule fois. Il 
fallait écrire : 
FOR N=1 TO 23 
2. Cette ligne est parfaitement correcte. 


3. Celle-ci aussi. 


4. Oui, celle-ci aussi : le pas est très grand, aussi n’y a-t-il que le 37 qui sera pris en 
compte car, au tour suivant, on passerait à 137 ce qui excède la limite de 73. 


5. C’est parfaitement correct : le pas peut être tout petit. 


6. Alors là, rien ne va plus : essayez donc de décompter (—25) en accroissant des 
valeurs de 37 à 73 ! 


7. Ici, tout va bien car, avec le pas négatif, on a inscrit un décomptage de 37 à zéro. 


8. C‘est parfaitement correct. Rappelez-vous que le double point est un séparateur 
d’ordres sur une même ligne. 


La suite des réponses page 96 
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DE ZÉRO À 99 
FOR NEXT 





Dresser le tableau des nombres de 0 à 99 en les groupant par 10 sur cha- 
que ligne : 0 à 9 sur la première, 10 à 19 sur la deuxième... Pour cela on 
peut distinguer le chiffre des unités et celui des dizaines. 

Pour chaque dizaine, il faudra donner au chiffre des unités toutes les 
valeurs de 0 à 9 et les afficher sur la même ligne. Puis on passera à la ligne 
et on répètera ceci pour que le chiffre des dizaines aille lui aussi de 0 à 9 : 


CLS 

FOR D-0 TO 9 REMARQUES 

FOR U=8 TO 9 20 à 70 — boucle sur les dizaines 
PRINT STR$CU+10%D) 30 à 50 — boucle sur les unités 
NEXT U 

PRINT 

- NEXT D 


60 — à la ligne ! 





Lancez ce programme et vous obtiendrez : 
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LE HASARD CET INCONNU 
FOR RND INT 





Pour vous permettre de bien exploiter la fonction RND qui fournit dans 
certains cas un nombre à peu près imprévisible, nous vous proposons ici quel- 
ques petites expériences sans danger, tant que vous n’engagez pas de pari ! 

D'abord un galop d’essai : tirage de 10 nombres grâce à RND(1) : 


10 FOR N=1 TO 18 
2@ PRINT RND(1) 
30 NEXT N 





si vous utilisez ce programme plusieurs fois de suite, vous obtiendrez cha- 
que fois 10 valeurs différentes : 


. 9373136996 
.103117626 
.8177148333 
. 7229343355 
.551834438 
.617419111 
. 9260296981 
.547150891 
.802192734 
.814107273 





Après chaque utilisation du programme, tapez en mode immédiat : 


PRINT RND(@) 


.81410/7273 





vous devez obtenir la dernière valeur fournie par le programme. Ça peut servir 
si on a besoin de cette valeur et qu’on ne l’a pas mise en conserve. 

Et RND(- 1), par exemple ? Pendant la période de mise au point d’un 
programme, on est amené à changer une ligne par ci, une valeur par là. Si 
en plus le programme produit des valeurs aléatoires qui changent d’un essai 
au suivant, on ne peut plus rien contrôler. Avec une valeur négative dans 
sa parenthèse, la fonction RND fixe le point de départ d’une suite de valeurs 
obtenues avec RND (nombre positif). 
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18 PRINT"'AMORCE ";RNDC-1) 
28 FOR N=1 TO 10 


38 PRINT RND(1) 
48 NEXTN 





deux utilisations successives de ce programme fournissant la même suite de 
10 valeurs, avec en-tête l’amorce. 


RUN 

AMORCE 2.99196472E-08 
. 2382077502 
. 2727807136 
. 2393733446 
. 54034268 

. 8728488765 
.@517244711 
. 2066466605 
. 8336393669 
.92182/7414 
+ 3355365807 


RUN 

AMNORCE 2.939196472E-08 
. 7238207502 
. 2272707136 
. 2939733446 
. 24034268 
.878488765 
.0@517244211 
. 2066466605 
. 8933639669 
.921827414 
+. 3335336507 





En changeant la valeur négative on change l’amorce, donc la suite de 
valeurs. 


18 PRINT"'AMORCE " ;RND(-2) 


RUN 
AMORCE 2.9920556/E-08 
. 2273385388 


. 6219366945 
. 3698081192 
. 3008018338 
. 5724801276 
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TT  — 


. 2048888672 
.93/18393163 


. 434229892 
. 3902435673 
4981212464 





Par contre si l’on change la valeur positive à la ligne 30, on ne change 
pas de suite. 


RUN 

AMORCE 2.99205567E-08 
. 2273385388 
. 6219366945 
. 3693081192 
. 3000189338 
- 5372401276 
. 2488886772 
«9371939163 
. 4342293892 
. 3802435673 
.458152464 





Et même si cette valeur change d’un tirage à l’autre, la suite reste immua- 
ble, derrière son chef de file : l’amorce. 


RUN 

AMORCE 2.99295567E-08 
. 2273385388 
. 6219366945 
. 3698981192 
. 3000189338 
. 3/2401276 
. 2488886772 
. 9321833163 
. 4342298932 
. 3802435673 
. 4581552464 





Nous pourrions ne pas fixer l’amorce afin de laisser le hasard jouer son 
rôle dès le début. Mais alors la première valeur tirée après la mise en marche 
de l’ordinateur sera toujours la même. 
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On obtiendra donc deux fois la même suite si on utilise deux fois le même 
programme, et que chaque fois aucun tirage n’a eu lieu depuis le branche- 
ment de l’ordinateur. Pour éviter cela, le programme va demander à l’utili- 
sateur de penser à un nombre de 1 à 255 et surtout de le taper ! C’est ce 
nombre qui va servir de point de départ : 


1@ INPUT'"TAPEZ UN NOMBRE DE 1 À 255'";A 
29 PRINT'AMORCE ‘" ;RND(-A) 


30 FOR N=1 TO 18 
48 PRINT INTCRNDC1)*%10) 
50 NEXT N 





Pour changer un peu, la ligne 40 va afficher des nombres entiers pouvant 
aller de 0 à 9: 


RUN 
TAPEZ UN NOMBRE DE 1 À 255? 123 
AMORCE 5.73991201E-08 


lci le 3 est 


sorti...3 fois ! 





Nr O Q O U1 8 (0 © U 





Par curiosité, comptons le nombre de sorties, pour chaque numéro en 
rangeant ces nombres dans diverses cases d’un fichier que nous appellerons 
S. Une case est repérée par la valeur de ce qui est dans la parenthèse : T. 


INPUT'"'TAPEZ UN NOMBRE DE 1 À 255";A 
PRINT'"AMORCE " >RNDC-A) 

FOR N=1 TO 10 

T=[INTCRND(1)%12) 

PRINT T, 

SCT)I=S(T)+1 





Ceci veut dire que si T vaut 2, on ajoute 1 dans la case n° 2 deS. Atten- 
tion, la boucle n’est pas terminée. 


PRINT :PRINT"BILAN DES TIRAGES" 
FOR T=0 TO S 


80 PRINT'LE NUMERO ";T;" EST SORTI ";SCT 
);" FOIS" 
3 NEXT T 
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RUN | 
TAPEZ UN NOMBRE DE 1 À 2557 12 
AMORCE 4.48235369E-08 
? 3 5 6 ? ? ) 
o 3 
BILAN DES TIRAGES 
LE NUMERO EST 
LE NUMERO EST 
LE NUMERO EST 
LE NUMERO EST 
LE NUMERO EST 
LE NUMERO EST 
LE NUMERO EST 
LE NUMERO EST 
LE NUMERO EST 
LE NUMERO EST 


© © VU OO U1 8 ÜU N — © 
—- © OU — N © À © © © 





Et pour un nombre variable de tirages : 


20 PRINT"'AMORCE ":;RNDC-A) 

25 INPUT'NOMBRE DE TIRAGES" ;NB 
30 FOR N=1 TO NB 

35 T=INT(RND(1)*10) 


Essayez ce programme pour un nombre de tirages plus ou moins impor- 
tants. Tous les numéros ne sortent pas aussi souvent. Que se passe-t-il quand 
on augmente le nombre de tirages ? 


NB : La notation S(T) sous-entend en principe une réservation de 
mémoire que nous n’avons pas faite ici parce que les conditions le permet- 
taient. Pour être en règle il faudrait faire cette réservation avec l’instruction 
DIM que nous rencontrerons plus loin. 
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POUR RÉVEILLER, SONS ET COULEURS ! 


PING ZAP PAPER INK 





Lorsqu’ün programme demande des données ou affiche des résultats 
de temps en temps, il peut être utile de le signaler au spectateur grâce à un 
son ou une manifestation visuelle. On peut par exemple sonner avant cha- 
que instruction INPUT, et tirer un coup de laser dès qu’un résultat s’affiche. 


CLS 

PING : INPUT "NOM" 3; NS$ 

PING : INPUT "PRENOM" ;P$ REMARQUES 
IP$=LEFT$SCP$,1)2+", 40 — on conserve l’initiale du prénom à laquelle 
ZAP :PRINT''MONSIEUR "3;IP$:;N$;" UOUS AU on ajoute le point et un espace 

GAGNE, .." 

PRINT'"'TOUTE NOTRE ESTIMEU" 





Nous ne pourrons pas reproduire les effets sonores ici, essayer. c’est 
peut-être adopter ! 














Une clochette NOM? DULOUIS 


PRENOM? RENE 
MONSIEUR R. DULOUIS VOUS AVUEZ GAGNE... 






Un coup de 
fusil-laser 







TOUTE NOTRE ESTIMEZ 


Lorsque certains traitements sont longs, cette méthode est bien utile car 
elle évite de fixer l’écran dans l’attente de résultats. Mais si le son gêne (après 
22 h !) vous pouvez le remplacer par de la couleur. 


5 PAPER @:INK ? 

18: CLS 

20 INK 1:INPUT'"NOM'"3;NS$ 

30 INK 2:INPUT'"PRENOM'" ;P$ 
35 INK 7 


48 IPS=LEFTSCPS, 1)+". 

5Q PAPER 1:PRINT'MONSIEUR ";IP$3;N$;" UOU 
S AUEZ GAGNE..." 

52 WAIT 200 

55 PAPER 0 

68 PRINT"TOUTE NOTRE ESTIME2" 
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PAPHSERQER En rouge sur fond noir 
NOM? LELOIR , 
rt fond 


En blanc sur 
fond rouge 
pendant 

2 secondes 




















NOM? LELOIR 
PRENOM? CHILDERIC 
MONSIEUR C. LELOIR UOUS AVUEZ GAGNE... 


TOUTE NOTRE ESTIME® 
Retour au blanc 
sur fond noir 


Si vous avez essayé ce programme, vous avez remarqué que les couleurs 
ne duraient que le temps de l’introduction ou de l’affichage : nous n’obte- 
nons pas pour l’instant plusieurs couleurs d’encre ou de papier différents 
en même temps sur l’écran. Rendez-vous au chapitre suivant. 








SUITE DES REPONSES AUX QUESTIONS SUR LE CHAPITRE V 


9. Mais non, il y a une confusion entre la variable N et T qui sert à la définir. Il 
aurait fallu écrire, apparemment : 
FOR N=T+2 TO T+5:2N: NEXT N 


10. PAPER 3 fait passer la page en jaune. 


11. Par contre INK = 1 fournit une erreur de syntaxe ! Il ne faut pas mettre de signe 
égal ; pour faire passer le texte en rouge, il suffit (et il faut) écrire INK 1. 


12. Rien du tout ! Lorsqu’il rencontre un ordre REM, l’ordinateur saute la suite et 
passe à la ligne suivante. 


13. L'ordre RND sert à tirer une valeur aléatoire. 


14. Oui : RND(9) et RND(18) fournissent le même résultat. La valeur du nombre 
entre parenthèses est sans aucune importance pour autant qu’il soit positif et non 
nul : ilest, en quelque sorte, fictif. 


15. Non, RND(6) fournit un nombre aléatoire compris entre 9 et 1 et ne convient 
donc pas. Réfléchissez un instant sur la seconde formule : 

RND(9) fournit une valeur entre @ et 1 exclu 

RND(9) *6 donne une valeur entre Ÿ et 6 exclu 

INT(RND(9) *x6) donne un entier compris entre 9 et 6 exclu, donc entre Det 5 inclus 
INT(RND(9) *x6) + 1 donne un entier entre 1 et 6 inclus, ce que vous voulions obtenir. 


A vous, maintenant d’imaginer un programme pour jouer au 421 ! 
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NOTATION SCIENTIFIQUE 


1.23456789E + 10 





Si un nombre est très petit, ou très grand, on préfère souvent l’écrire 
comme s’il était voisin de 1 en corrigeant le tir grâce à un multiple (ou un 
sous-multiple) de 10 : 


0.0000001 s’écrit ainsi 1E —7 


c’est-à-dire une fois dix à la puissance moins sept. Pour vous familiariser 
avec ces petits et ces grands, nous allons regarder dans quel cas la notation 
scientifique intervient, grâce à un programme qui demande un nombre et 
qui le multiplie et le divise par 10, 100, 1000... jusqu’à ce que l’ordinateur 
ne puisse plus représenter un des résultats dans ses mémoires : « OVERFLOW 
ERROR IN 60 ». 


CLS 

INPUT"UN NOMBRE SUP" :N 
NI=NX10 

N2=N/10 

PRINT NI1,N2 

NI=N1%X19 

N2=N2/18 

GOTO 50 





Si on tape par exemple le nombre 185.637 on observe un déplacement 
du point (notre virgule) vers la droite lorsqu’on multiplie et vers la gauche 
lorsqu’on divise. Tant mieux ! Puis apparaît un E dans la colonne de gau- 
che et un peu plus tard dans celle de droite, pour éviter d’accumuler trop 
de zéros à droite ou à gauche. 


UN NOMBRE SUP? 185,637 
1856. 3? 18.563? 
18563, ? 1.895637 
18563? . 18563? 
1856370 .2185637 


18563700 
1856370008 


1.85637E +09 
1.85637E+10 


1.85637E +36 
1.8563/7E+37 


1.8563?7E-03 
1.85637E-04 
1.8563?7E-05 
1.8563/7E-06 


1.8563?E-32 
1.8563?7E-33 


POUERFLOW ERROR IN 68 


Ready 
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Avec 1 au départ, le programme se bloque au moment où N1 cherche 
à prendre la valeur 1E + 39 c’est-à-dire un nombre formé d’un 1 et de 39 zéros. 


UN NOMBRE SUP? 1 
10 | 

100 .A1 

1200 1E-03 
12000 1E-04 
120000 

1200000 

10000000 
1288000008 


1E +09 1E-09 
1E+10 1E-10 


1E+35 1E-35 

1E+36 1E-36 

1E+37 1E-37 

1E+38 1E-38 
POUERFLOW ERROR IN 60 
Ready 





Si vous essayez 0.01, le blocage a lieu au même endroit, et N2 est devenu 
nul. 

Pourriez-vous trouver vers quelle valeur se produit le blocage, et quand 
un nombre trop petit est-il transformé en zéro ? 
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CONVERSIONS BINAIRE - DÉCIMALE 


FOR INT 





Vous avez vu au chapitre 1 qu’un octet représentait un nombre binaire 
composé de 8 chiffres, des zéros ou des uns. Les enfants de 6 ans évoluent 
en base deux comme un poisson dans l’eau. Mais c’est plutôt la base dix 
qui fait partie de la vie de tous les jours... heureusement ! 


Voici deux programmes permettant la conversion d’un nombre écrit dans 
notre bon vieux système décimal en un nombre binaire, et inversement. Ils 
sont faits pour des nombres compris entre O0 et 255, c’est-à-dire O et 
11111111 en binaire : c’est ce que peut contenir un octet. 


Conversion décimale — binaire 


19 REM CONUERSION DECIMAL-->BINAIRE RATÉ den 
2@ INPUT'NOMBRE EN BASE DIX'"35N 30 — B$ contiendra les zéros et les uns : on com- 


mence par ne rien mettre 
30 B$="" 


40 FOR P=0 TO ? 
Q=INT(N/2) 50 — quotient entier de la division de N par 2 


40 à 90 — boucle de recherche des 8 chiffres binaires 


60 R=N-QX2 60 — reste de cette division : c’est un des huit chif- 
20 B$=STRS(R)+B$ fres que l'on cherche 

880 N=Q 70 — ce chiffre vient se placer à gauche des précé- 
9Q NEXT P dents dans B$ 

10Q PRINT'EN BASE DEUX : ";B$ 80 — on va refaire la même chose avec Q... 


90 — … jusqu'à épuisement des valeurs de P 





Exemples : 


RUN 
NOMBRE EN BASE DIX? 2 
EN BASE DEUX : @80@@@1eao 


Ready 
RUN 


NOMBRE EN BASE DIX? 255 
EN BASE DEUX % TL 1 1 Y 1 € 11 


Ready 

RUN 

NOMBRE EN BASE DIX? 256 

EN BASE DEUX : D @00@@0@0 
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NOMBRE EN BASE DIX? 257 
EN BASE DEUX : @00@@m@agl 


Ready 

RUN 

NOMBRE EN BASE DIX? -255 

EN BASE DEUX : 2000@@@l 


Ready 





Conversion binaire — décimale 


REM CONUERSION BINAIRE-->DECIMAL REMARQUES 


INPUT'"'NOMBRE EN BASE DEUX" ;B$ 


D=@a 
FOR P=D TO ? 


20 — le nombre binaire est logé dans B$ : il est con- 
sidéré comme une chaîne de caractères 


30 — on met à zéro ce qui contiendra le résultat 


D=D+UAL(MNID$S(B$,8-P,1))X(2"P) 


NEXT P 
PRINT'EN BASE DIX 





d0 à 60 — boucle de constitution du nombre 

décimal 

We D 
4 50 — si le chiffre binaire n° P vaut 1, on ajoute 

2°àD 


Exemples : 


RUN 
NOMBRE EN BASE DEUX? B@000@@l1e 
EN BASE DIX : 2 


Ready 

RUN 

NOMBRE EN BASE DEUX? 0 1 @ 0 0@@l 
EN BASE DIX * 65 


Ready 





CHAPITRE VI 


L'ART GRAPHIQUE EN BASSE RÉSOLUTION 


Comment utiliser l’écran pour des tracés, des dessins et même un début d’anima- 
tion, c’est ce qu’on va étudier dans ce chapitre. Il est consacré aux modes graphi- 
ques dits à basse résolution, car l’écran est « divisé » en 39 colonnes sur 27 rangées. 
On passera au mode « haute résolution » dans le chapitre suivant, bien plus fin 
puisqu'alors, l’écran dispose de 249 par 200 « points » graphiques. 


Principaux thèmes abordés 


Mode texte Etoiles 

TEXT RUN numéro de ligne 
Modes graphiques END 

Grille graphique STOP 

PLOT Sous-programme 
Couleurs avec PLOT Programme principal 
Barres de couleur GOSUB 

Graphique basse résolution RETURN 

LORES LORES 1 

HIRES Caractères graphiques 
LORES 9 CTRL/C 

Traits en LORES 9 CONT 

Carré en LORES ÿ Mouvement 
Duplication d’instructions CHRS(8) 

Suppression du curseur CHRS$(9) 

CTRL/Q 





1. L'organisation de l’écran en « mode texte » 


Pour écrire du texte sur l’écran, des lignes les unes à la suite des autres, on n’a pas 
eu à se préoccuper de son organisation. Vous savez, cependant, que la:« page » de 
texte, le cadre blanc affiché, comporte 27 lignes et 4ÿ colonnes, dont seules, 38 sont 
utilisables. La ligne supérieure, au-dessus de ce cadre (la 28°, donc), servait à divers 
messages. 


Ce « mode » de travail que l’on a exploité, 
MODE TEXTE jusqu’à présent, s’appelle « le mode texte », 
car il nous servait à écrire. du texte. En 


TEXT anglais : TEXT. 


Vous verrez l’importance de ce point quand on examinera les frois autres modes, 
dits graphiques. 
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C’est dans ce cadre utile de 27 par 49 que nous allons commencer par écrire, puis 
dessiner. Pour cela, Il nous faut désigner des positions précises ; on va dessiner 

MODES cette page avec ses lignes et ses colonnes, puis on va numéroter les lignes ef les 
GRAPHIQUES colonnes (voyez notre dessin) : 


e Pour les lignes, aucun problème : on va de 9 à 26 (ce qui fait bien 27 au total). 


e Pour les colonnes : on va de 9 à 39 pour l’Oric-Atmos. Attention, pour l’ancien 


Oric — 1, on supprimait la colonne la plus à gauche et l’on allait ensuite de 9 à 38. 
GRILLE GRAPHIQUE 


BASSE RESOLUTION 







Vous ne pouvez pas, non plus, 
travailler avec la 

colonne Ÿ en mode TEXT. 
Mais vous l’emploirez en modes graphiques 





"an nr 


2 
NAN NN 


[7 Ceci, c'est la position 6,2 
F\ colonne 5, rangée 2) _. 


La grille d’écran en mode « texte ». 


Voulez-vous écrire un texte au centre de l'écran, ligne 12, par exemple ? 
N’employez plus PRINT, mais PLOT (pour « dessiner »), en indiquant la position 

colonne, rangée, puis le texte à afficher. Supposons qu’on parte de la colonne 15 ; 
faites d’abord CTRL/L pour effacer l’écran, puis entrez en mode direct : 
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Le mot à afficher doit 
être mis entre 

guillemets, comme 
d'habitude 







Ces deux virgules sont 
obligatoires! 








Avec le RETURN, le mot CENTRE s'inscrit. au centre de l’écran. Vérifiez sa 
position exacte sur notre grille. Faites quelques autres essais de votre crû, mais 
rappelez-vous que la « syntaxe » correcte de l’ordre est : 


Virgules 
obligatoires 


PLOT colonne, rangée, "texte “ 















Guillemets 
obligatoires 





Voici donc une façon de loger du texte là où bon vous semble. Mais pourquoi ne 
pas user de la couleur ? On peut, en effet, compléter PLOT avec un « attribut » de 
couleur, comme l’on dit dans le jargon « oricien » : c’est un nombre de plus, préci- 
sant la couleur. 


Avec PLOT et pour mettre en couleur : 

e Le texte écrit (donc, l’équivalent de INK), 
utilisez les chiffres de couleurs de 8 à 7, 
comme indiqués précédemment. 

e Le fond (la « page »), utilisez ces mêmes 
chiffres auxquels il faut ajouter 16. 


Voici ce que cela donne : 


Avec l’ordre PLOT 


cou "Ho AVEC COULEUR NUMERO ATTRIBUT 
Pour l’écriture Pour le fond 
Noir 16 
Rouge 17 
Vert 18 
Jaune 19 
Bleu 20 
Magenta 21. 
Cyan 6 22 
Blanc 7 23 


Maintenant, la syntaxe de l’ordre PLOT va être : 


Virgules obligatoires 


PLOT colonne, 













rangée;attribut 
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En effet, il faut choisir : l’attribut ou le texte, mais pas les deux à la fois avec 
PLOT. Essayons de passer en bleu (attribut 29) la ligne 15, à partir de la colonne 
19. Commencez par faire CTRL/L, puis entrez, en mode direct : 


Au RETURN, toute la ligne 15, à partir de la colonne 19, se teinte en bleu, ce qui 
donne ( avec de l’imagination pour la couleur) : 






Trait bleu 


Voulez-vous effacer cette couleur, de la colonne 39 à la fin ? Il suffit de re-colorier 
en blanc (attribut : 23) cette ligne, avec : 





Rien ne vous empêche de commander maintenant, toujours en mode direct, PAPER 1 
pour voir la page devenir rouge, avec un trait bleu central, prolongé par du blanc. 


A ce propos, remarquez qu’une nouvelle 
commande PAPER, ou même INK, ne 
modifie pas la couleur d’une position déjà 
coloriée. 


La même structure d’ordre, employant comme attributs de couleur les chiffres de 9 
à 7, teinterait le texte (c’est l’équivalent de INK) et non le fond, selon le même pro- 
cessus. Avec une petite différence : le caractère de la première cellule s’efface ! En 
effet, rappelez-vous qu’il faut choisir : la couleur ou le caractère. Vérifiez-le en 
commandant le passage en couleurs d’une ligne de texte apparaissant sur notre 
écran. Pour éviter cet effacement et colorier toute la ligne, partez de la colonne 9. 
Ainsi, si votre texte se trouve sur la ligne 11 et que vous vouliez le mettre en bleu, 
frappez : 
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Vous verrez toute la ligne 11 écrite en bleu. 

Mais faisons mieux : on va afficher des lignes de couleurs complètes, en choisissant 
la ligne au hasard et la couleur au hasard ; parce que le programme va boucler sans 
fin, une nouvelle couleur chassera l’autre dans un effet global très coloré et esthéti- 
quement déjà discutable. 


Il nous faut d’abord choisir une ligne (appelons-la L) au hasard, mais obtenir une 
valeur entre 9 et 26 inclus. Rappelez-vous que RND(9) fournit une valeur comprise 
entre Yet 1 exclus, donc entre Yet, dans notre écriture habituelle : 9,99999... I] fau- 
dra donc multiplier la valeur aléatoire par 27 puis en extraire l’entier, ce qui s’écrira 
INT(RND(9) *27). 


Rappelez-vous aussi que le premier (9) entre parenthèses n’a aucune signification ; 
vous pouvez mettre 8 ou 33 ou 456, cela ne changera rien tant qu’il ne s’agira pas 
d’une valeur nulle ou négative. 

Pour la couleur deda ligne, qu’on va appeler T, pour teinte, c’est un peu plus com- 
pliqué : il faut obtenir des valeurs de 16 à 23 incluses, donc de 9 + 16 à 7 + 16 inclu- 
ses. Qu’à cela ne tienne : de ÿ à 7, nous savons le faire ; il suffira d’ajouter 16, ce 
qui donnera l’ordre : 


T = INT(RND(9) *8) + 16 


Dès lors, le programme est simple à rédiger : 






Choix aléatoire de 


BARRES ALEATOIRES 











1 ; R 
2 L 
DE COULEUR 30 T 
40 P - 
50 G teinte 












Ordre de tracé 
en couleur, 
à partir de la colonne 1 


On recommence à 
perpétuité 







Lancez ce programme, et vous verrez des lignes colorées remplir l’écran et se rem- 
placer au hasard, pour les lignes et pour les couleurs. Seule, la colonne ÿ restera 
hors d’atteinte (la colonne la plus à gauche). 


2. Graphique basse résolution, mode # 
Abordons, maintenant, le mode graphique. Il en existe deux : 
GRAPHIQUE e L’un est appelé le mode graphique « basse résolution », ce qui s’écrit LORES, de 


BASSE RESOLUTION l'anglais « low resolution », c’est-à-dire basse résolution. C’est par lui que nous 
allons commencer. 
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LORES 














En blanc sur 
fond 
noir 


e L’autre est le mode graphique « haute résolution », qui s’écrit HIRES, de « high 
resolution ». 


Le mode LORES se divise à son tour en deux modes, appelés tout bonnement 
LORES 9 et LORES 1. À nouveau, nous allons d’abord examiner le premier, 
LORES 9. 


Commençons par informer l’Oric qu’on passe en mode LORES 9 ; pour cela, frap- 
pez en mode direct : 


LORES 0 | LORES 9 


Puis faites RETURN. Instantanément, l’écran devient noir, car c’est ainsi que 
fonctionne LORES  ; tout le texte en noir qui pré-existait disparaît du même coup, 
alors qu’un Ready en blanc et un curseur blanc aussi se placent là où il fallait les 
attendre, à la suite du texte pré-existant disparu. 


Recommençons alors l’expérience précédente, faite en mode texte. Frappez exacte- 
ment le même ordre, en mode direct, puis faites RETURN : 








Nous ne pouvons utilement reproduire ici tout l’écran, noir. Au RETURN, le mot 
CENTRE s’affiche au centre de l’écran, mais en blanc, cette fois. 


En « mode direct », LORES 9 (ou LORES 1) ne prolongent leur action que pour la 
seule « page » affichée. Si vous écrivez au-delà des 27 lignes, une « page blanche », 
en mode TEXT, ré-apparaît. 


En mode LORES # (ou LORES 1), vous 
pouvez vous servir de la colonne 1, et même 
(mais ce n’est pas obligatoirement vrai), de 
la colonne #. 


Vérifiez-le : faites d’abord CTRL/L pour effacer l'écran, ce qui vous ramène au 
mode TEXT puisque l’écran redevient blanc, puis frappez LORES 6, et enfin un 
caractère quelconque, par exemple l’astérisque (mais placé entre guillemets). Cela 
donne : 















L'étoile (l’astérisque) 
apparait en position 0,0 
avec le RETURN 


Tout cela 
apparait 

réellement 
en blanc 







Ready 
PLOT 6,9,"x" 













Ici, 
faites 
EN PT EE RETURN) 










A propos : rappelez-vous du code ASCII ; l’astérisque a pour code 42, ce qui fait 
que vous auriez aussi bien pu écrire CHRS$(42) pour obtenir le même résultat. 
Vérifiez-le, en modifiant la position, par exemple : 
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Ready 
PLOT @,9,"x" 


Ready 
PLOT 24,9 ,CHR$(42) Cet ordre place 
l'étoile ici 





Notons, maintenant, un point essentiel relatif. à la couleur : 


En mode LORES 8 (comme avec le mode 
LORES 1 qu’on va examiner ensuite), 

le placement de la couleur se fait position 
par position. 


Cela veut dire qu’appliquer de la couleur sur une position ne remplira pas le reste 
de la ligne. Ainsi, frappez CTRL/L pour effacer la page, puis entrez en mode 
direct : 















Rappelez-vous que le double-point 
sert à séparer deux instructions 
sur une même ligne 









Couleur rouge, 
pour le fond 


LORES 9 PLOT 19,5,17 





Avec le RETURN, la page devient noire et, sur ce fond, vous obtiendrez un unique 
pavé rouge : 












Pavé rouge 
en position 
10,5 










Le curseur : en blanc ! 


Le fond est 
noir! 






Expérimentons alors le mode LORES 8 en tirant un trait horizontal sur la ligne 5, 
en rouge (couleur de page 17), d’un bout à l’autre de l’écran (de la colonne ÿ à la 
38). Il faudra placer tous les pavés successivement, à partir de la position 9,5 
jusqu’à 38,5 ce qui donne (faites un NEW, au préalable) : 
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19 ses Trait horizontal 










Ready et le curseur 


sont en blanc 
+ Res 


Trait rouge sur 
la ligne 5 





Pour obtenir un trait allant de la colonne 5 à la colonne 14, donc sur 19 positions, 
modifiez la ligne 49 ainsi : 





TRAITS EN 
LORES 9 


Pour un trait vertical en co/onne 5, de 19 positions, le principe est exactement le 
même et le programme serait (ne modifiez que la ligne 59) : 








19 REM 
$0 LORES 0 
: On a simplement 
. BOT SN 97 déplacé N, pour viser 
69 NEXT N les rangées 


successives 


Au RUN, vous verrez un trait vertical rouge s'installer sur la colonne 5, et sur 19 
positions verticales. 
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De là à créer un carré complet, il n’y a qu’un pas. Voici ce qu’on veut obtenir, à 
partir des mêmes positions : 


| Cane de côté =10 


Position 
5,5 










LE 
5 Colonne 
14 


Et voici le programme correspondant : 












CARRE EN DA RENECRFTE Les deux côtés 
29 CLS . 
LORES 9 30 LORES 0 horizontaux 
409 FOR N=5 TO 14 
59 PLOT N,5,17 | 
69 PLOT N,14,17 
79 PLOT 5,N,17 | 
89 PLOT 14,N,17 
99 NEXT N 


Les deux côtés 
verticaux 





Faites un RUN : vous obtiendrez le résultat escompté (heureusement !). Mais ce 
fond noir n’est pas heureux : pour passer le fond en vert (couleur 18), par exemple, 
il faut badigeonner successivement tous les pavés, selon le même principe, colonne 
par colonne puis, et pour chaque colonne, rangée par rangée. Pour ce faire, on va 
employer deux boucles. Voici ce programme ; commencez-le à la ligne 199, par 
exemple, sans faire NEW : 







(Evo «colonne» et 
R pour »rangée» 


190 REM Fond en vert 
119 FOR C=0 TO 38 
120 FOR R=9 TO 26 
130 PLOT C,R,18 J 
140 NEXT R 
159 NEXT C 
Si nn eV mm sf. 52 2 Voici les 2 
boucles 






Lancez l’ensemble avec RUN : le carré rouge apparaît, puis tout l’écran est passé 
au vert et le carré disparaît ! Pour bien faire, il faut faire passer les anciennes ins- 
tructions 49 à 99 après 150. 


110 


DUPLICATION 


D'INSTRUCTIONS 
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Pour déplacer des instructions, on peut 

les dupliquer. Listez le programme puis, 
comme si vous vouliez corriger une ligne, 
modifiez leur nouveau numéro en le frappant. 
Sortez de la ligne avec CTRL/A, puis faites 
RETURN. La ligne modifiée est dupliquée : 
dans un nouveau listage, elle apparaît 

deux fois : avec l’ancien et avec le nouveau 
numéro de ligne. 


Il ne reste plus, alors, qu’à supprimer les lignes inutiles. Si vous faites cela, vous 
devez obtenir (en reprenant les numéros suivants) : 


On a supprimé de 40 à 
RS 100 D 













19 REM Carré 

29 CLS 

PRARQRES Pour remplir l‘écran 

119 FOR C=@ TO 39 de vert : comme 

129 FOR R=Q@ TO 26 ci-dessus 

139 PLOT C,R,18 

149 NEXT R 

159 NEXT C 

160 FOR N=5 TO 14 

170 PLOT N,5,17 Pour afficher le carré rouge : 

189 PLOT N,14,17 instructions 40 à 90 

DATE PES dela page précédente 
ne: dupliquées 

219 NEXT N be 


à ces nouvelles lignes 


Le RUN va verdir l’écran, puis tracer le carré rouge précédent. 


3. Ciel d’étoiles 


Puisqu’on peut placer des astérisques (des « étoiles ») sur l’écran, pourquoi ne pas 
essayer de le remplir de façon aléatoire ? On va accrocher des étoiles sur les posi- 
tions R (rangée) et C (colonne) choisies au hasard avec RND : 











Pour passer au 
mode LORES 0 






La colonne : un nombre 
aléatoire, calculé 
entre 0 et 38 
inclus 


OT70r2 
OriiOm 
10--272Z 







Er La rangée : un nombre f 
aléatoire, calculé entre O et 26 inclus 


Rappelez-vous le mode de calcul employé pour le tir galactique, et vérifiez qu’avec 
la ligne 30, on obtiendra bien tous les entiers entre 9 et 38 inclus alors qu’avec la 
ligne 49, on ira de 9 à 26 inclus. 






SUPPRESSION 
DU CURSEUR 





ETOILES 


DANS LE CIEL 





Séquence pour 
mettre le 

ciel en 

bleu 


RUN 
NUMERO DE LIGNE 
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Faites un RUN : l’écran devient noir, et des étoiles vont s’allumer au hasard, 
jusqu’à remplir totalement l’écran : nous ne vous le dessinons pas ! 

Au cours de l’exécution de ce programme, le curseur blanc s’entête à rester sur sa 
ligne et continue à clignoter, ce qui gâche un peu l’effet. Or, on peut le supprimer. 
Stoppez ce programme avec CTRL/C, puis faites CTRL/L pour revenir à un écran 
blanc. 


Frappez alors sur CTRL/Q : le curseur 
disparaît et restera absent tant que vous 
n’aurez pas frappé à nouveau CTRL/Q. 


Or, CTRL/Q dispose d’un code numérique, qui est 17. On peut le programmer 
avec CHR$(17) ; ajoutez alors au début du programme : 


Si vous refaites un RUN, vous constaterez que le curseur a disparu. Attention, tou- 
tefois : après le CTRL/C qui stoppe ce programme, il ne revient pas de lui-même 
(rappelez-vous que l’ordinateur se borne à obéir aux ordres) ; aussi vous faudra-t-il 
frapper CTRL/Q, ou donner l’ordre, en mode direct : ? CHRS$(17). 

Fort bien, mais des étoiles blanches sur un ciel noir, c’est peu poétique. Pourquoi 
pas des étoiles sur un ciel bleu (couleur n° 4), par exemple ? On a vu, précédem- 
ment comment procéder, alors allons un peu loin : on va aussi effacer des étoiles, 
aléatoirement, avec RND. Pour effacer une étoile sur un ciel bleu, il suffira de pla- 
cer un pavé bleu à sa place (aléatoirement). L’ordre sera donc PLOT C,R,29. 
Ajoutons donc cet ordre en mêlant ces programmes, ce qui obligera à refrapper la 
suite afin d’obtenir le programme complet suivant, qui démarre en 199. Notez 
encore deux choses : 


1) — On a supprimé l’ordre INT avec RND. Maintenant que vous savez à quoi il 
sert, on peut préciser que, dans le cas précis de PLOT, ce dernier prend de lui- 
même la valeur entière des nombres qu’on lui propose ! 


2) — On a réservé un cadre bleu tout autour du ciel. Donc, les colonnes iront de 1 à 
37 et non de 9 à 38, et les rangées de 1 à 25‘et non de 9 à 26. 


Voici donc le programme au complet qu’on a volontairement démarré en 199 (sur- 
tout, ne faites pas NEW si vous voulez qu’on puisse vous faire une autre démons- 
tration) : 










Séquence pour 
allumer les 
étoiles 


DNN NN = =h =b = eh mb kb = mb 
£ ON = © © © H O O1 B À ND = Se 
S66666666666666 

zZ 

m 

x*< 

= 

[e] 


Séquence pour 
éteindre des 
étoiles 


Pour lancer ce programme, ne faites pas RUN seulement car ce serait le programme 
précédent qui démarrerait, mais précisez la ligne : RUN 199. Dès lors, le Basic ira: 
directement à 199, ignorant ce qui précède. 
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SOUS-PROGRAMME 


STOP 


PROGRAMME 
PRINCIPAL 
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On peut lancer n’importe quel programme 
en mémoire (lorsqu'il y en a plusieurs) en 
indiquant son numéro de ligne. En l’absence 
d’un numéro de ligne, le Basic recherche le 
programme qui commence par le plus faible 
numéro de ligne. 


Donc, faites : 


Vous verrez alors des étoiles s’allumer ou s’éteindre sur un fond de ciel bleu. Après 
le CTRL/C qui stoppera ce programme, n’oubliez pas de faire CTRL/Q pour réta- 
blir le curseur. 


Puisque nous vous avons montré comment démarrer un programme à partir de 
n’importe quelle ligne, ajoutons qu’on peut également marquer une fin obligatoire. 
Ce sera utile lorsque plusieurs programmes se succèdent. A la fin d’un programme, 
vous placerez l’ordre END (« fin »), comme au cinéma, avec un numéro d’instruc- 
tion. Par exemple : 


Le Basic, rencontrant END, s’arrêtera et n’ira pas chercher des instructions ulté- 
rieures qui existeraient. Ou encore, on pourra utiliser l’ordre STOP : lorsque le 
BASIC le rencontre, il cesse l’exécution mais affiche le numéro de ligne sur lequel il 
s’est arrêté. 


4. Sous-programmes 


Vous vous êtes familiarisé avec le maniement de la basse résolution, en LORES ÿ 
avec le programme précédent. Celui-ci comporte cependant une redondance peu 
élégante : les lignes 189 et 199 sont les mêmes que les lignes 219 et 229. Voici com- 
ment supprimer ce phénomène. 


On va « extraire » ces deux lignes et les placer ailleurs, par exemple en 599. Quand 
on en aura besoin, on fera appel à elles. 


Cette séquence distincte à laquelle on peut 
faire appel à volonté est désignée par le nom 
de « sous-programme ». 

Par opposition, le programme appelant est 
le « programme principal ». 


A la fin du sous-programme, on sera néanmoins contraint d’ajouter une instruc- 
tion précisant que le sous-programme est terminé et qu’il faut revenir au pro- 
gramme principal. 
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De ce fait, deux ordres nouveaux intervien- 
nent : 

RETURN e GOSUB, qui « appelle » le sous-programme 
et est situé dans le programme principal. 
e RETURN qui renvoie au programme 
principal après exécution du sous-programme. 


Le renvoi se fait toujours et automatiquement 
à l’instruction qui suit l’appel par GOSUB. 


Le plus simple consiste à vous montrer comment transformer le programme précé- 
dent : supprimez les lignes 199 et 229, modifiez 189 et 219, et écrivez les nouvelles 
lignes 599 à 539 comme suit (la REM est en prime !). 


Attention : il faut écrire RETURN et non 
frapper sur la touche du même nom, à la 
ligne 539. C’est là une source de confusion 
regrettable ! 


Voici donc ce programme avec son sous-programme : 










1er appel du 
sous-programme 












Ligne 190 
supprimée 


NEXT 
GOSUB 599 


PLOT C,R,"x" 
GOSUB 599 


dt he hd 
ee OUPS 
ee 66 6666666666 






2e appel du sous- 





DN NN 


Ro 





O1 O1 O1 O1 


O ND = S 
S66s 


— Ligne 220 : 
supprimée 








Ordre de retour 
au programme 
principal 






On peut illustrer ainsi ce programme : 
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Programme principal Sous-programme (sp) 









Lignes 199 1er appel du 
SP 


500 Lignes 
2e appel du 
SP 







Et bouclage 
par le GOTO 180 





Rappelez-vous que le retour se fait 
automatiquement à l’instruction qui suit celle 
d’appel, le « GOSUB ». 


Les sous-programmes ne sont réellement très intéressant que lorsque la séquence 
passée en sous-programme est longue, ou lorsqu'elle doit intervenir de nombreuses 
fois. Ce pourrait être le cas si elle devait intervenir dans des programmes différents. 
Avec un sous-programme, en effet, on ne frappe qu’une seule fois la liste des ins- 
tructions répétitives ! En outre, on économiserait de la mémoire centrale (mais pas 


dans notre cas, où le sous-programme était vraiment trop court). 


5. Le mode LORES 1 


Passons au mode LORES 1. Dans ce mode, la différence avec LORES réside dans 


le fait qu’on dispose d’un jeu de caractères spéciaux, appelés des caractères graphi- 
LORES 1 ques : un demi-pavé, ou un quart, etc. À chaque touche correspond l’un de ces 
caractères. Faites, en mode direct et après un CTRL/L : 


LORES 1 





Puis, frappez RETURN. L’écran devient noir et un mot qui devrait être « Ready » 
apparaît en blanc ; en fait, il s’agit des dessins correspondant à ces lettres ; ; ils n’ont 


plus aucune signification : 

















Voici le caractère 
graphique pour le R 
majuscule 


Le mot «Ready» en mode 
LORES 1 (tout est blanc 
sur fond noir !} 








Les minuscules n'ont 
que cet équivalent, 
à elles toutes 






Curseur 
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Ces caractères graphiques ont pour numéro de caractère 32 à 128 en version dite 
alternative. Vous pouvez les afficher, mais en utilisant un code « secret » qui est 
CARACTERES ,CHRS$(27);”’I”” et que comprend votre Basic. Par exemple : 


GRAPHIQUES 


? CHR$(65) 
A 2 —— ji est le 
a — code ASCII n°65 


Mais, par contre et avec le code d’alternative : 











? ,CHR$(27);"l";CHR$(65) 












C'est l’autre code, 
«alterné», graphique 
du n° 65 






Pour afficher sur un seul écran tous les caractères graphiques, de 32 à 128, créez ce 
programme et lancez-le (après un NEW, éventuellement) : 









Code pour les 
caractères alternatifs 






Tous ces caractères s’inscrivent individuellement dans une « grille » de 8 par 6 
qu’on peut représenter ainsi : 





Si tout est plein, vous obtenez le pavé correspondant au curseur ; selon le remplis- 
sage, on forme tous les autres caractères, dont les graphiques. 
Pour faire défiler tous ces caractères graphiques avec leur numéro, entrez ce pro- 


gramme : 









Pour sauter une ligne … On a simplement ajouté 


N pour afficher le code 














. Et temporiser 
un instant 


Il y a 96 caractères et l’on en place un toutes les deux lignes, de sucroît : vous ne les 
verrez pas tous d’un coup. 
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CTRL/C 
CONT 












MOUVEMENT 


Code pour passer 
au caractère graphique 
83 avec l'Oric-Atmos. 

Supprimez-le avec l’Oric 1 


PRATIQUE DE L’ORIC-ATMOS ET 36 PROGRAMMES 


Pour stopper leur défilement, frappez sur 
CTRL/C. Pour le faire reprendre, faites 
CONT pour CONTinuer, en frappant ces 
lettres sur le clavier. Cette méthode s’applique 
très généralement à tous les cas de défilement. 


Au passage, remarquez le caractère 57, qui ressemblerait à une fusée : voilà qui 
peut être utile pour les jeux ! Celui qui est semblable au curseur est le 95. Le 83 est 
un gros signe « égal » (soit =). Utilisons-le pour le renvoyer d’un bord à l’autre de 
l’écran, en rebondissant ; pour passer aux caractères de cette seconde famille, on va 
ajouter le code CHR$(9), qu’on expliquera plus loin (cela, uniquement avec 
l’Atmos, car ce code était inutile avec l’Oric — 1). 


Il faut, tout d’abord, le placer sur la rangée choisie, 12 par exemple, en position de 
départ, à gauche, sur la colonne C = 1, par exemple. Puis, on va l'emmener de C=1 
à C=2 mais il faudra l’effacer sur C=1. Pour l’effacer, on affichera simplement 
un espace, donc ”” ”” sur la position antérieure. Démarrons ce programme en com- 
mandant un mouvement de gauche à droite (faites un NEW au préalable) : 









Pour placer le caractère 


REM mouvement 83, qui est un gros 


CLS 
LORES 1 

FOR C=1 TO 38 rm 
PLOT C,12,CHR$(9)+CHR$ (83) 

PLOT C=-1,12," ” 

NEXT C 













19 
20 
30 
40 
59 
69 
70 






Pour l’effacer de la 
position précédente (C—1) et 
donner l‘illusion du mouvement 















Lancez ce programme ; le « 83 », un gros signe égal, va se déplacer de la gauche à 
la droite de l’écran où il s’arrêtera. Il faut maintenant le faire revenir ; pour cela, le 
FOR... TO va aller de 37 à 9 par pas négatif de — 1. L’effacement, lui, ne se fera 
non plus sur C — 1 mais sur C+ 1 puisqu’on fait marche arrière. Cela donne : 










On recule, cette 
fois 








. Et effacement de la 
position précédente 






Pour recommencer de 
l'avant! 


Lancez ce programme ; incontestablement, l'illusion du mouvement, de la gauche 
vers la droite et retour, et on repart, etc., est correcte. Alors, ajoutons le son, une 
sonnette au départ de la gauche, un SHOOT à l’arrivée à droite : 






CHR$(8) 
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35 PING 
75 SHOOT 


129 GOTO 35 










. Et modifiez le 
renvoi ainsi 





19 REM mouvement 

29 CLS 

39 LORES 12 

85 PING 

49 FOR C=1 TO 38 

59 PLOT C,12,CHR$(9)+CHR$(83) 
69 PLOT C-1,12," " 

79 NEXT C 

75 SHOOT 

80 FOR C=38 TO @ STEP -1 

99 PLOT C,12,CHR$(9)+CHR$(83) 
199 PLOT C+1,12," ‘” 

119 NEXT C 

129 GOTO 35 


Lancez-le : c’est plus réaliste avec le son. Maintenant, à vous de tenter de l’amélio- 
rer, avec de la couleur, par exemple. Essayez : pourquoi pas ? 

Notez aussi que, avec l’Oric-Atmos, les différences entre LORES 4 et LORES 1 ne 
sont plus du tout aussi évidentes qu’avec l’ancien Oric — 1, pour lequel le code 
CHR$(9) + était inutile pour le même résultat. 


6. Pour mêler les genres 
Sachez qu’on peut encore employer les caractères alphanumériques en mode 
LORES 1 ou ceux graphiques en mode LORES 9, et ce, grâce à un caractère spécial 


qui est, selon le cas : 


e Pour obtenir les caractères a/phanumériques en LORES 1, il faut donner le code 
CHRS(8). Faites l’essai, d’abord en LORES 1 « pur » et en mode direct. 













C’est toujours notre 
gros «égal»...On l’obtient 
‘ ici directement, 
même avec 
l'Oric-Atmos, 
car l'ordre LORES 1 
se trouve sur 
la même ligne 





Pour passer 
dans ce 
mode … 











Séparateur 
d'instructions 























| LORES 1 PLOT 29,19 ,CHR$ (83) 






Au RETURN, le même symbole graphique va s’afficher, en blanc sur fond noir, à 
la position 29, 19. 


Bien : maintenant, on va rester en LORES 1 pour afficher le caractère a/phanumé- 
rique correspondant au même code 83 ; c’est un S majuscule. Pour cela, on va 
« commuter » en alphanumérique avec CHR$(8) puis, à l’aide du caractère de con- 
caténation, le symbole « plus » (+) qu’on vous a présenté au début de ce livre, on 
va demander l’affichage du S, ce qui donne (faites d’abord un CTRL/L) : 
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Pour 
«concaténer)y 











Commutation 
vers les 
caractères albhanumériques 











Le caractère 


Au RETURN, c’est un bel S qui s’affiche, cette fois, en 2,19. 


e Pour revenir aux caractères graphiques, on « commuterait » à nouveau « le cla- 
vier » avec, cette fois, CHR$(9) +, ainsi qu’on vient de le voir. Voici un petit pro- 
gramme qui vous en indique le mode d’emploi : 









{On commute en 
alphanumérique 









Le mot alphabétique 
à afficher 






D'abord, le 





On re-commute 
pour revenir au 
graphique 


dernier 
gros = 






Ordre d'affichage 


On a utilisé la variable alphanumérique A$, définie en 39, pour bien vous faire 
comprendre le processus (car ainsi, on peut l’isoler de l’ordre PLOT). Au 
RETURN, vous verrez s’afficher à partir de 15,19 en blanc sur fond noir : 


= BONJOUR un 


e En mode LORES 6, pour obtenir les caractères graphiques, on procède de même 
mais en inversant les commandes. Ainsi, CHRS$(9) fournit les caractères graphiques 
alors que CHR$(8) ramène au « clavier » alphanumérique. 


Considérez CHRS$(8) et CHR$(9) comme des 
commutateurs : 

e CHRS$(8) commute vers le clavier alpha- 
numérique. 

° CHRS$(9) commute vers le clavier graphique. 


Expérimentons un dernier ordre qui s’applique aussi bien en mode TEXT qu’en 
LORES 9 et LORES 1. Passons alors simplement en TEXT, avec CTRL/L, et pla- 
çons un S en 29,19 avec un PLOT. Puis, on va demander au Basic quel Caractère se 
trouve en 29,19 (en supposant qu’on l’ait oublié). Cette demande se dit PRINT 
SCRN(28,19), où SCRN vient de « screen », écran en anglais. Voici ce que cela 
donne : 
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En mode texte, pour 
—————————— — — —) afficher S en 20, 10 /- — — 
PLOT 29,10,"S" 






Ready 
? SCRN(20,19) 
83 





Maintenant, on 
demande au Basic 
ce qui se trouve en 20,10 


.… Et il répond : 
«Le caractère 

de code 83», ce 

qui correspond bien 
au S (dans le code ASCII) 





Ready 





L'utilisation pratique d’une telle commande ? Pensez aux jeux : si le missile atteint 
la position du navire, tout explose ; mais où se trouvent-ils, tous deux ? Mais au 
fait, comment programme-t-on des commandes conditionnelles de ce type ? Vous 
l’apprendrez dans notre prochain chapitre. 


QUESTIONS SUR LE CHAPITRE VI 


Voici quelques questions, mais en fait, nous souhaitons que vous vous entraîniez 
ensuite à imaginer des programmes par vous-même ! 


1. En mode graphique LORES, la résolution de l’écran (le nombre de positions) est de : 
[] 49 fois 27 
[1 620 par 340 


2. Peut-on écrire : PLOT *’ BONJOUR’ 
[ Oui 
[ Non 


3. Pour placer une couleur en LORES et en un point précis, l’ordre est : 
[ PLOT colonne,rangée,couleur 
[ PLOT couleur =rangée;colonne 


4. La différence entre LORES ÿ et LORES 1 est constituée par : 
[1 La définition de la grille disponible 
[ Le jeu de caractères 


5. Peut-on indiquer le numéro de ligne avec un RUN pour choisir entre plusieurs programmes ? 
O Oui 
CO] Non 


6. A quoi sert l’ordre END : 
[ A marquer la fin d’un programme pour le Basic 
[ A séparer des séquences de programmes lors de leur rédaction, afin que le pro- 
grammeur s’y retrouve. 


7. Pour appeler un sous-programme, on doit écrire : 
O GOTO SUB numéro 
O GOSUB numéro 
où numéro est le numéro de l’instruction à laquelle commence le sous-programme 


8. A la fin du sous-programme, l’instruction de retour s’écrit : 
O RETURN numéro de ligne 
[ RETURN 


9. Pour arrêter un défilement sur l’écran, on frappera : 
[ RESET 
O CTRL/C 


Réponses page 120 
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REPONSES AUX QUESTIONS SUR LE CHAPITRE VI 

1. En mode LORES, la grille d’écran est de 49 colonnes sur 27 rangées. 
2. Non, la syntaxe est fausse car il faut indiquer la position. 

3. L'ordre correct est PLOT colonne,rangée,couleur. 

4. Le jeu de caractères n’est pas le même en LORES 9 et en LORES 1. 


5. Oui ; on écrira RUN 54, par exemple, pour un programme commençant en 599 
si un autre le précède. 


6. END marque la fin d’un programme pour le Basic. Mais vous pourrez aussi 
l’employer pour tester des séquences de programme que vous venez de rédiger : 
placez provisoirement un END là où vous voulez qu’elles s’arrêtent ; supprimez-le 
ensuite. 


7. Pour appeler un sous-programme, on écrit GOSUB numéro, par exemple 
GOSUB 1999. 


8. A la fin d’un sous-programme, l’instruction de retour s’écrit RETURN tout 
court, surtout sans numéro de ligne ! 


9. Pour arrêter un défilement sur l’écran, faites CTRL/C. 
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ARC-EN-CIEL 


LORES PLOT READ DATA 





L’instruction PLOT permet de créer très vite une bande horizontale dont 
on précise la couleur. Nous allons l’exploiter pour obtenir une palette de cou- 
leurs sous forme de bandes s’étalant sur plusieurs lignes de l’écran. Pour 
commencer, suivons l’ordre des couleurs convenu par l’Oric ; 

1 rouge, 2 vert, 3 jaune, 4 bleu foncé, 5 magenta, 6 bleu clair. 

Dans l'instruction PLOT, il faut ajouter 16 pour obtenir le code de cou- 

leur du papier. 


CLS 

L=@ REMARQUES 

FOR C=1 TO 6 20 — on commence à prendre dès le haut de l’écran 
FOR N=1 TO 4 
PLOT @,L,C+16 
L=L+1 

NEXT N 

NEXT C 


30 à 80 — boucle sur les 6 couleurs 


40 à 70 — boucle pour une bande (l’équivalent de 
4 lignes de texte) 


50 — apparition d’une ligne colorée 


60 — passage à la ligne suivante 





L’exécution de ce programme va vous donner 6 bandes de couleur et 
une bande blanche en bas de l’écran. 

Le message Ready s’affiche vers le haut de l’écran puisqu’on n’a rien 
écrit depuis l’instruction d’effaçage de la ligne 10. PLOT ne déplace pas le 
curseur comme le fait PRINT. 


Bleu foncé 











ms) 


Magenta 












Si le 
fond était blanc 
auparavant 


PRATIQUE DE L’ORIC-ATMOS ET 36 PROGRAMMES 








Si l’on veut ranger les couleurs, comme elles figurent dans l’arc-en-ciel : 
violet, indigo, bleu, vert, jaune et rouge, il faut utiliser les codes dans cet 
ordre. Pour faire respecter cette succession, nous utiliserons deux instruc- 
tions nouvelles qui vont de pair : READ et DATA. 


DATA permet de constituer très facilement un fichier de valeurs, et 
READ lit ces valeurs. Si on écrit DATA 5,4,3,2,1 puis READ CO c’est la 


READ valeur 5 qui est lue et placée dans CO, comme si on avait écrit CO =. 

DATA Si une deuxième lecture intervient avec READ CO, c’est la valeur 4 qui 
se met dans CO en effaçant la valeur 5 qui s’y trouvait comme si on avait 
écrit CO=4. 


Mais la grande différence, c’est que si l’instruction READ CO est pla- 
cée dans une boucle, elle lira successivement les valeurs figurant dans l’ins- 
truction DATA. 


READ CO est général puisque la valeur ne figure pas, contrairement 
à CO =4 ou CO=S5. On retrouve la même souplesse que pour l'instruction 
INPUT que l’auteur du programme emploie pour laisser la parole à l’utili- 
sateur, mais avec READ c’est l’auteur qui fixe les données. 


19 CLS 

Hs 
28 L=0 

30 FOR C=1 TO 6 


35 READ CO 35 — lecture d’un code d’une couleur 


4@ FOR N=1 TO 4 
60 L=L+] 

?7@ NEXT N 

89 NEXT C 


15 — les couleurs dans l’ordre 





Bleu foncé 


Bleu clair 
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LORES 


Jusqu’à maintenant on a travaillé en mode texte. Que se passe-t-il si 
dans ce programme, on remplace CLS par LORES 0, à la ligne 10 ? 

L’instruction PLOT n’agit plus sur toute la partie de la ligne située à 
droite de la case précisée, mais seulement sur cette case. 


Le programme précédent va tracer une colonne colorée comme les ban- 
des, sur fond noir, et le mot Ready s’affichera en bas de l’écran (en chassant 
d’ailleurs la moitié de la colonne violette). 

Si on change la ligne 40 : 


40 PLOT 20,L,CO + 16 


la colonne se déplace au milieu de l’écran. 

Le mode LORES 1 donne le même résultat, puisqu’on ne définit que 
la couleur du papier, sans tracer de caractères. 

Vous avez remarqué que le retour en mode Texte se fait automatique- 
ment lorsqu’on atteint le bas de l’écran. 


Un drapeau 


Pour beaucoup de drapeaux, les bandes sont verticales. Notre programme 
ne convient donc pas et nous avons le choix entre deux méthodes : dessiner 
les bandes en mode graphique basse résolution en juxtaposant plusieurs colon- 
nes de même couleur pour obtenir une bande large, ou bien rester en mode 
texte : pour un drapeau tricolore, on remplira d’abord l’écran entièrement 
d’une couleur, puis en se décalant vers la droite, on modifiera la couleur 
des deux tiers de droite, pour finir avec le dernier tiers. 

Prenons le cas du drapeau français avec des bandes larges de 13 cases : 


CLS REMARQUES 

PAPER B':INK 7? 20 — pour avoir un fond noir 

DATA 6,7, 1 30 — les couleurs, bleu, blanc, rouge 

COR ETES 40 à 90 — boucle sur ces trois couleurs 

READ CO 

FOR L=Q TO 25 50 — lecture d’une couleur 

PLOT (C-1)%x13,L,CO+16 60 à 80 — boucle pour une bande : 26 lignes de haut 


NEXT L 
NEXT C 





Bleu 


Noir 


70 — coloration d’une ligne, ou des deux tiers de 
droite, ou du tiers 


Ready 


(Rouge 








Vous pourrez passer en revue tous les drapeaux tricolores à bandes 
verticales, en changeant simplement les valeurs de la ligne 30. 
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C’EST PLUS C’EST MOINS 


PLOT SGN 





10 NM=25 


Ce jeu très connu peut bénéficier d’une présentation visuelle en se ser- 
vant de l’instruction PLOT et en regardant l’écart entre le nombre à décou- 
vrir et celui que vous proposez. 

Si cet écart est plus petit que zéro, vous êtes trop bas et vous obtiendrez 
sur l’écran une ligne rouge, si vous êtes trop haut, la ligne sera jaune, et si 
vous avez trouvé elle sera verte. Vous avez droit à 20 essais, même si vous 
trouvez avant. 

Pour arrêter avant le vingtième essai, tapez (c), en maintenant la 
touche enfoncée au moment où vous appuyez sur (c) 


On utilisera une fonction nouvelle, SGN, pour savoir si l’écart est plus 
petit ou plus grand que zéro, ou s’il est nul : SGN(—2) vaut — 1, SGN(3) 
vaut 1 et SGN(0O) vaut 0. 


REMARQUES 


10 — le plus grand nombre possible 


28 CLS:PRINT"'DEUINEZ UN NOMBRE DE 1 À 


IL ; NM 


30 — nombre à découvrir compris entre 1 et NM, 
inclus 


30 A=INTCRNDCI1)XNM)+1 


4Q FOR E=1 TO 20 
20 INPUT N 


69 Q=SGN(A-N) 
7@ P=CNM-N)Xx26/CNM-1) c’est trouvé 


80 PLOT 18,P,18-Q 


40 à 100 — boucle donnant droit à 20 essais 
50 — introduction d’une proposition 


60 — Q=1 : c’est moins, Q = — 1 : c’est plus, Q =0 


70 — P : numéro de la ligne à colorier, entre 0 et 26 


3Q PLOT 11,P,STR$CN) 80 — apparition de la bande teinte en rouge, jaune 


100 NEXT E 





ou vert selon le cas 


90 — affichage du nombre proposé au début de la 
bande 


Utilisation : 


La ligne 20 fixe une limite pour le nombre à découvrir qui sera toujours 
compris entre 1 et cette limite. Vous pouvez la changer mais il faut que les 
nombres proposés la respecte, sinon vous obtiendrez une erreur : Illegal quan- 
tity in 80. 

Pour que le programme s’arrête de lui-même lorsque le nombre est 
trouvé, il faut ajouter une ligne dans la boucle qui force l’arrêt si Q vaut 
zéro. Ce serait le rôle de l’instruction IF... THEN... que vous rencontrerez 
dès le chapitre VII. Si vous savez déjà l’utiliser, n’hésitez pas à vous en ser- 
vir dès maintenant ! 
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UNE MOSAÏQUE VIVANTE 


PLOT LORES 





CLS 
CO=INTCRNDCI)X%X8) 
C=INTCRNDC1)%x39) 
L=INTCRNDC1)%27) 
PLOT C;L,CO+16 
GOTO 28 






Pour représenter 
les couleurs voici 
ce qu'on a trouvé : 
une bande de 

couleur c'est un 
chiffre suivi 
de @ 



















1 @@@@ 
c'est une bande 
rouge qui occupe 
la place de 5 
caractères 






Un carré 
bleu foncé 


Nouner 





En mode texte l’instruction PLOT peut servir à fixer la couleur du papier 
sur la partie droite de la ligne qui commence à la case précisée. Si on l’em- 
ploie un grand nombre de fois en changeant la case et la couleur, on obtien- 
dra une espèce de mosaïque formée de bandes horizontales de largeur et de 
couleurs variées. Laissons le hasard déterminer les changements : la couleur, 
la place horizontale et verticale de la case de gauche. 


REMARQUES 

20 — la couleur 

30 — numéro de colonne 
40 — numéro de ligne 
50 — une bande 


60 — on continue 










60486e1e6e/e/70e006e306ee6ec1e6626e11e6e1 
5482660644000/750c6046760665cee57e6e0ce5se 
6G5e623cc6000020046040612ece66e7e0ce6e 
e260C662GCeceCcnescceccncaiece2escceesecce 
e3ee3eceec3cesesec/ece]leceuceeeepe6e22 
6482648616100/72e6e60e5ec0306506715e663 
266636/7?7c07606604646e506e67e6e1e71e7e620 
eCCeeecCeces40c6e346e0cccecece4e34cece/e7 
66686500320644330056]174]060l06R6666ce661 
566622050000 leccecece6es5sce6uelen5ecsse 
e4600656en0cecciecs4cece/3c002645662e62e 
e0cec2e0creccecee/3e32cecenee6e/7675e6 
eec21C06562/7c614060066e4425ceece]se6e7 
2266e6c06ccen0cececec44ee3c20cees50ce23e 
e@6@73060005540241]50ce6ce6c0c316ce6]1ee6e5e 
256e3663e7e76e60c/74665e0ce64/0ee3ccceuice 
eS5p2ecel2c36ecc6ee1621e7e06e3e62c6006e433 
eelecceleccceecec2ee/7]1e6ceuee321e33/7ec6ea 
1Q33C0CC566CCECC26606260216/7c660266620830 
660266061666 16012e64767e6060666@]166684]12 
e587e81306666067e06167e00006e6e26085566e86 
164010351003 20462ceccece3e0cec4ecec27 
eCE0C6CCCCCCCeCCECeeR450160l155ce766e6e6 
e63e4]1/6@]1045640071060260ce6010291e5e66 
a4a116ec3e3c0cceccecee64e/1evce/e6e3e3ce4n 
S6Ce65051eec030cel6c6ee]06es5e5]1ce626631@ 
e62e1e0ce6eeeeeee37ce71e60c60e53/0627606 
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Chaque nouvelle bande détruit ce qui se trouvait à sa place, jusqu’au 
bord droit de l’écran. Pour composer la mosaïque avec des carreaux et non 
des bandes, il suffit de se placer en mode graphique faible résolution. L’ins- 
truction PLOT ne concerne plus alors que la case dont on fournit la position. 


REMARQUE 
10 LORES @ 10 — mode graphique basse résolution 





Le fond est noir et se recouvre progressivement de carreaux de couleur, 
dont le noir puisque la ligne 20 donne à CO des valeurs allant de 0 à 7. 


2040?7040310006306060700002002146003166 
17152012210042060170052032426010003001 
23040051027000400420060086300607726710 
00/72?6?7022300504434)601600053006304640 
1002040100313621010500520820276356@652 
265000024062410631041305051460533801?2 
52206003305450020063710013006303706477 
14044255530705440305514000230?704040625 
13365?0051060304303547126156505004 1462 
62132514031406000105200120449262034060 
06003159515020000754415975073700620100 
00003005220411707007768715400503173706 
4008024502520?70?706034006081206477506056 
04204360120014206010032555551628253325 
2000?703106142560701035013020657003001@ 
60003537200300303004?60177d1540206105] 
100004004013015003480005174600301627300 
110303020007001313444]121443006004062?72 
14700552266157203010251060515462120360@ 
017066773007010456020606030800001035400 
2002460004602814206325413066143607236S 
41667520400615250063?750333005003205310 
2036060536060700401000103006506600475S 
54201100666?700021560801184001028120206 
47647102750402307160407004036602670701 
0001007340073170010656064653361 7665205 
400065050407301003102005635342?0020067 








Ÿ c'est noir 
1 c'est rouge 
etc. 

selon la convention 
ORIC 








Tout au long du spectacle, un carré blanc ne cesse de clignoter : c’est 
le curseur. Pour le supprimer on peut ajouter la ligne : 


5 PRINT CHR$C17) 





Quand vous aurez arrêté le programme avec CTRL C , tapez 
CTRL Q pour récupérer le curseur. 
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HISTOGRAMME 


LORES PLOT DIM 





CLS 


Un histogramme est un diagramme à barres c’est-à-dire un moyen de 
représenter graphiquement l’évolution d’un phénomène au cours du temps, 
une répartition en différentes catégories. 

Ce diagramme a l’aspect de tuyaux d’orgue : des barres verticales dont 
les hauteurs variées traduisent l’importance du phénomène à représenter. 

L’instruction PLOT utilisée en mode graphique basse résolution per- 
met ce genre d’image. Si on accepte de compter les valeurs et de chercher 
la plus grande d’entre elles, le programme qui va tracer l’histogramme peut 
se découper en deux parties : l’introduction des données, et le tracé. Nous 
traiterons un maximum de 30 valeurs et la barre la plus haute occupera 27 
lignes. 


Avec une seule couleur : 


REMARQUES 


INPUT"NOMBRE DE VALEURS" ;NB 


DIM UCNB) 


INPUT'"UALEUR MAXIMUM" ;Un 


FOR N=1 TO NB 
PRINT'UALEUR NO 
INPUT UCN) 

NEXT N 


CLS 


LORES @ 
FOR N=1 TO NB 


30 — réservation de places en mémoire vive pour 
les valeurs 


40 — VM servira à cadrer l’histogramme : la valeur 
la plus grande en haut de l’écran, zéro en bas 


M5Ns 50 à 80 — boucle d’introduction des NB valeurs 


90 — effacement de l’écran en mode texte pour 
positionner le curseur en haut à gauche 


100 — passage au mode graphique basse résolution 
110 à 160 — boucle sur les valeurs 


120 — position du haut d’une barre 


NL=INTCCUM-UCN))%x26/UNM) 130 à 150 — boucle de tracé d’une barre 


FOR LENL TO 26 
PLOT N+8,L,127 
NEXT L 
NEXT N 





140 — barre rouge 


A la ligne 30 apparaît une instruction nouvelle : DIM. Elle permet de pré- 
voir de la place en mémoire vive pour un fichier dont le nom sera V et qui 
contiendra les valeurs introduites à la ligne 70. 

Ces différentes valeurs portent le même nom, V, et on ls distinguera 
par un numéro placé entre pharenthèses (lignes 70 et 120) 

Exemple : 

Représenter sous forme d’histogramme la hauteur d’eau tombée en 
moyenne chaque mois à Brest. 


Janvier 80 mm Juillet 50 mm 
Février 72 mm Août 55 mm 
Mars 63 mm Sept. 65 mm 
Avril 54 mm Octobre 85 mm 
Mai 40 mm Novembre 100 mm 


Juin 45 mm Décembre 85 mm 
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NOMBRE DE VALEURS? 12 
UALEUR MAXIMUM? 100 








VALEUR NO 1 ? 80 
VALEUR NO 2 PL 
UALEUR NO 3 7 63 
UALEUR NO 4 ? 54 
VALEUR NO 5 ? 40 
VALEUR NO 6 D 
VALEUR NO 7 ? 50 
UALEUR NO 8 P:59 
UALEUR NQ 3 ? 65 
VALEUR NO 18 7 85 
VALEUR NO 11 7 1920 








VALEUR NO 12 7-85 


us ne 
[ 

mp ont 

. . ss EE _— ù 

il 

ul 


= Lui ie ii 
a 
CL 








Comme toujours lorsque le programme s’achève, le mot Ready appa- 
raît, en-dessous de la dernière ligne affichée par une instruction PRINT. C’est 
grâce à la ligne 90 que Ready s’affiche en haut de l’écran, sinon il pourrait 
très bien apparaître en bas et même faire glisser l’histogramme vers le haut ! 
Pour éviter que Ready ne coupe une ou plusieurs barres, on a décalé le début 
de l’histogramme en ajoutant 8 à N à la ligne 140. 


Version multicolore 


Dans cette ligne la couleur du papier est toujours le rouge (code 17). 
Pour faire ressortir encore mieux les diverses amplitudes du phénomène 
observé, on peut changer de couleur de temps en temps. On a choisi de le 
faire toutes les 4 lignes et de tolérer toutes les couleurs sauf le noir qui est 
déjà la couleur du fond ! La couleur d’une colonne dépendra de sa hauteur. 

Voici [es changements à apporter : 


12@ NL=INT(CCUM-UCN))X26/UN) REMARQUES 
125 T=INTCNL/4) 125 — T est la teinte d’une barre 
130 FOR L=NL TO 26 


140 PLOT N+8,L,17+T 


15Q NEXT L 


140 — barre de couleur variée 


Nous ne vous montrerons pas de résultats, couleur oblige ! 
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UN MOT TRANSFORMÉ 


PLOT SCRN 





CLS 


Nous avons surtout utilisé les lettres majuscules, et pourtant votre Oric 


‘ sait très bien afficher les minuscules, car elles ont leur code tout comme leur 


grande sœur. Le code du a est 97 celui du À 65, pour b c’est 98 et pour B 
66, c’est-à-dire qu’il suffit d’ajouter 32 au code de la majuscule pour obte- 
nir celui de la minuscule. On va même observer la transformation sur l’écran : 
la fonction SCRN permet de connaître le code d’un caractère affiché sur 
Pécran. Affichons d’abord un mot en majuscules, puis grâce à SCRN, modi- 
fions le code de chaque caractère affiché. 


REMARQUES 


INPUT"UOTRE MOT" ;nS 30 — affichage du mot sur la 6° ligne à partir de 


PLOT 5,6,"M$ 
WAIT 58 


FOR C=1 TO LENCMHS#) 


CA=SCRNCC+4,6) 


PLOT C+4,6,CHR$(CA+32) 


NEXT C 





la cinquième colonne 

40 — une pause pour voir 

50 à 80 — boucle pour changer chaque lettre 
60 — CA : le code de la C: lettre du mot 


70 — affichage de la lettre transformée 


Tapez un mot, rien d’autre que des lettres. 
Votre mot s’affiche sur la sixième ligne, reste un instant puis se trans- 
forme lettre après lettre : 





VOTRE MOT? ALPHABETISATION 






Ready 






Après transformation 







alphabetisation 





Si vous tapez des caractères qui ne sont pas des lettres, le changement 
risque d’être étonnant : une virgule se transforme en L ! 

Comment conserver l’initiale en majuscule ? Il suffit de-ccommencer la 
transformation à partir de la deuxième lettre : 


VOTRE MOT? ALPHABETISATION 


Ready 


Alphabetisation 





130 
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FAIRE-PART DE NAISSANCE 


PLOT GOSUB RETURN 





18 CLS 


20 INPUT'"TEXTE À TRAITER":;TS$ 
30 PLOT 10,3, CHRS$(1@)+T$ 


Comment écrire un mot ou une phrase en caractères de taille double ? 
En occupant deux lignes au lieu d’une aurait dit Monsieur de la Palice ! C’est 
en effet ce qu’il faut faire en prévenant sur chaque ligne que ce qui suit doit 
être soit le haut soit le bas du texte. Voici un programme très court qui affi- 
chera en gros caractères le texte que vous introduirez. Nous verrons après 
une application plus complète. 


REMARQUES 
20 — votre texte 


On écrit deux 30 — affichage de la partie supérieure 


49 PLOT 19,4,CHR$CI1D)+T$ fois le texte 








—.. sur l’imprimante 
deux fois la même 
ligne et sur l'écran 
une seule ligne 
mais en double 
hauteur 










IL ETAIT UNE FOIS. 





en mémoire. 40 — idem pour le bas du texte 
Vous obtiendrez … 


Le texte apparaît au début des lignes 5 et 6 (celle du haut comptant pour 
Zéro). 













TEXTE À TRAITER? IL ETAIT UNE FOIS. 





EL EFAIT UNE" FOES:. 
IL /ETALT UNE ‘FOIS: : 





Dans les lignes 30 et 40 c’est le code 10 qui est fourni à la fonction CHR$ 
pour obtenir la double hauteur. Si on place 14 comme code, on obtient en 
plus un affichage clignotant, que nous ne vous montrerons pas... 


Le faire-part de naissance 


Ce procédé de grossissement est commode pour mettre en relief certaines 
parties du texte. Nous allons l’employer pour faire ressortir le nom et le pré- 
nom du nouveau-né dans le faire-part qui annonce sa naissance. 

Tapez le nom de famille, le prénom et la date et vous obtiendrez une 
carte facile à lire ! C’est encore une fois l’instruction PLOT qui va nous ser- 
vir aussi bien pour écrire normalement qu’en double hauteur. Et puisque 
le même travail revient plusieurs fois dans chacun des deux cas, nous fabri- 
quons deux outils, deux sous-programmes, un pour chaque mode d’écriture. 

Pour la taille normale il suffit d’afficher sur une ligne et de dire qu’il 
faut poursuivre à la ligne suivante. 

Pour la double hauteur, reprenons le programme de tout à l’heure en 
ajoutant deux précautions. Si la ligne du haut porte un numéro pair tout 
va bien, sinon le haut et le bas sont inversés : amusant ! Et puis il faut dire 
aussi de poursuivre deux lignes plus loin. 

Nous ferons appel à l’un de ces deux sous-programmes chaque fois qu’il 
faudra afficher une ligne. 
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1@ CLS 
2@ PRINT'"'JE UAIS VOUS FAIRE UN JOLI FA 
TRE-PART" 

38 PRINT"'DE NAISSANCE SI UOUS CONSENTE 
A" 

40 PRINT'REPONDRE À TROIS PETITES QUES 
TIONS .." 

50 INPUT'NOM DES HEUREUX PARENTS "35N$ 

6@ INPUT'"'PRENOM DU BEBE ‘";P$ 

?7@ INPUT'ET IL EST NE QUAND CE PETIT " 
:D$ 

88 CLS 

90 L=3 

108 T$="M, et Mme "+N$ 

119 GOSUB 240 

129 T$-"ont la joie de Vous annoncer! 
13@ GOSUR 210 


148 T$='"la naissance de leur bebe" 
150 GOSUB 210 
160 T$=-P$ 


178 GOSUB 248 

188 T$="le "+D$ 

1938 GOSUB 210 

208 END 

205 REM-------------m mm 
218 PLOT 2,i,T$ 

228 L=L+1] 

230 RETURN 

235 REM-------- 
248 L=2XCINT(L/2))+1 


REMARQUES 
20 à 40 — le mode d’emploi 
30 à 70 — introduction des trois informations 


90 — L fixe le début du faire-part : ligne 3 (à par- 
tir du zéro) 


100 — texte de la première ligne 


110 — utilisation du sous-programme double 
hauteur 


120 et 130 — 2° ligne : simple hauteur 
140 et 150 — idem pour la 3° ligne 
160 et 170 — le prénom en gros 

180 et 190 — la date en plus petit 


200 — fin du programme, les sous-programmes 
vont suivre 


210 à 230 — sous-programme simple hauteur 
210 — affichage d’une ligne 

220 — position de la ligne suivante 

240 à 280 — sous-programme double hauteur 
240 — position du haut du texte : nombre impair 


250 et 260 — le texte sur deux lignes 


270 — position de la ligne suivante 





250 PLOT 2,L,CHR$CI1G)+T$ 








268 PLOT 2,L+1,CHR$(I12)+T$ 








278 L=L+2 


JE VAIS VOUS FAIRE UN JOLI FAIRE-PART 





280 


Met Mme RAVIS 


RE TURN DE NAISSANCE SI VOUS CONSENTEZ À 
REPONDRE À TROIS PETITES QUESTIONS 

NOM DES HEUREUX PARENTS ? RAUIS 

PRENOM DU BEBE ? DESIRE 

ETUIL.EST-NE, GURND' CE ‘PETIT ‘931 -LECEN 


BRE. 1339 
























Deux lignes sur 
l'imprimante qui 
recopie la mémoire 
sans plus. 

















M, et Mme RAUIS 
M, et Mme RAUIS 

ont la joie de Vous annoncer 

La naissance de leur bebe 

DESIRE 

DESIRE 

ie 31 DECEMBRE 19998 

















Une ligne en 
double hauteur 
sur l'écran 







Un exemple ? Toute ressemblance avec des bébés étant réellement nés 
serait purement fortuite ! 


CHAPITRE VII 


DESSINS EN HAUTE RÉSOLUTION 


Après la basse résolution, voici la haute résolution, celle qui vous permettra les tra- 
cés les plus fins. Au cours de ce chapitre, on examinera quelques autres ordres 
Basic relatifs aux boucles, afin de terminer sur un festival de tracés et de couleurs. 


Principaux thèmes abordés 


Haute résolution 

HIRES 

TEXT 

Ecran haute résolution 
Points d’affichage 
CURSET 

CURMOV 

CIRCLE 

DRAW 

PATTERN 

Cercles à géométrie variable 
CHAR 

POINT 

FILL 

Lignes de couleurs aléatoires 
REPEAT UNTIL 


IF... THEN 

ELSE 

IF... THEN... ELSE 
Branchement conditionnel 
Branchement inconditionnel 
Opérateurs relationnels 
AND 

OR 

NOT 

Lecture d’une touche 

KEY$ 

Attributs 

Clignotement 

Lignes doublées 

CTRL/D 

Caractères en double hauteur 





HAUTE RESOLUTION 





1. Placement du curseur 


Nous allons abandonner la basse résolution (& LORES » vient de « /ow resolu- 
tion », basse résolution) pour passer à la haute résolution, ce qui se dit en langage 
oricien HIRES, de « high resolution ». Frappez donc, en mode direct : 


Puis, faites un RETURN. L'écran noircit mais tout en bas subsistent trois lignes 
blanches. 


Les trois lignes blanches inférieures sont 
destinées au texte, à vos ordres. Le reste de 
l’écran appartient au graphique. 


Lorsque vous êtes en mode HIRES, la frappe de CTRL/L ne vous ramène pas au 
mode texte : elle efface uniquement les trois lignes du bas. 
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Pour revenir au mode texte, frappez 
TEXT simplement TEXT en mode direct, puis 
RETURN. 


Vous pourriez passer aux modes graphiques basse résolution en frappant LORES 4 


ou LORES 1. 

ECRAN Bien, mais que représente maintenant l’écran graphique ? En basse résolution, 
HAUTE RESOLUTION rappelez-vous, on l’a quadrillé selon une grille de 49 colonnes sur 27 rangées, soit 
1 689 positions au total. En mode haute résolution, la « définition » est bien supé- 
rieure car on dispose alors de 249 colonnes (numérotées de ÿ à 239) et de 299 ran- 
gées (numérotées de 9 à 199), soit un total de 48 999 positions : reportez-vous à 
notre « grille », dessinée ici. Chaque position peut être assimilée à un point, tant 
elle est petite. 


POINTS D'AFFICHAGE 









Position 


2 
02 


Position 
239,19 










Trois lignes 
de texte 
en plus 





Fond blanc 
La grille haute résolution. 


CURSET 
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Il nous faut d’abord faire apparaître le 
curseur. Pour cela, on va le placer avec l’ordre 
CURSET, ce mot provenant de « cursor set », 
positionnement du curseur. 


CURSET doit être suivi de trois valeurs, selon la syntaxe : 










{ras 
obligatoires ! 





3e paramètre 


CURSET colonne, rangée,nombre FD 

Ce nombre est dit FD pour fond/devant, le fond étant tout simplement la couleur 
du fond (de la page) et le devant, la couleur de l’encre (de l’écriture). Les codes sont 
les suivants : 





PR ST HE 

RE 
dire qu’on efface, alors) 

ET semer 


nr né a 


mais met la position « colonne,rangée » 
en mémoire 

Le plus évident consiste à expérimenter. Le « point » central de l’écran a pour 

coordonnées 129,199. On va y mettre le curseur ; passez d’abord en mode HIRES, 

si ce n’est déjà fait, puis frappez ce texte qui viendra dans la fenêtre de texte de 3 

lignes : 


















Peur «respecter» la couleur de 
«l'encre» : du blanc 





N'oubliez pas 
les virgules 















Ready. 
CURSET 120 





190,1 
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Au RETURN, un tout petit point blanc (couleur de « l’encre »), c’est le curseur, 
s’affiche au centre de l’écran. Maintenant, faites : 












Pour une inversion 
de couleur 





Ready 
CURSET 120,100 ,2 


Au RETURN et avec le 2 qui inverse la couleur, on place un curseur noir en 
129,199 ce qui revient à « éteindre » le curseur précédent. Rallumez-le avec un 
CURSET 129,199,1 puis commandez : 


«Ne rien faire sur l‘écran» 


Ready 
CURSET 120,100,3 





Au RETURN, rien ne se passe, sur l'écran ; en fait, le Basic s’est borné à mettre 
l’ordre en mémoire. Si une instruction suivante se réfère au curseur, et bien que 
celui-ci soit invisible, sa position sera prise en compte. Par contre, avec : 


Passons à la couleur 
Ready 


CURSET 120,100 ,9 





et au RETURN, on affiche un curseur de la couleur du fond, ce qui revient à 
« éteindre » notre point blanc. 

Jusqu’à présent, on a donné les coordonnées exactes de la position du curseur 
(129,199) ; c’est ce qu’on appelle des valeurs absolues. Or, on peut très bien dépla- 
cer le curseur en se référant à sa position précédente ; par exemple, on va le dépla- 
cer de 59 positions à droite et de 29 positions plus bas. Sa position absolue sera 
donc de 129 + 59= 179 et de 199+29= 129, mais grâce à l’ordre CURMOV (de 
« cursor move », déplacement du curseur) il suffira de donner des indications rela- 
tives selon la même syntaxe : | 





Ce sont des valeurs 
«relatives» 


Ready 
CURMOV 59,20 ,1 


Au RETURN, un second point s’affiche en 179,129. 


Nous avons bien dit « un second ». Chaque 
nouvel ordre CURSET ou CURMOW place 
un nouveau point, qu’on appelle « curseur » 
dans la mesure où on se réfère à lui pour 
l’opération suivante. 


CURMOV accepte des valeurs négatives, pour des « marches arrières » : 









Déplacement à partir de 
la position précédente 
qui était 170, 120 










Ready 
CURMOV -1909,-50 ,1 


Au RETURN, un nouveau point s’allume en 179 — 199 = 79 et 129 — 59 = 79, ce qui 
correspond à la commande CURSET 79,79,1. 
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2. Tracés 


La haute résolution dispose de commandes de tracés très efficaces ; par exemple, 
on peut tracer une circonférence avec une seule instruction CIRCLE. Nous allons 
vous montrez la série d’ordre à introduire à la file, mais rappelez-vous que vous 
n’en verrez qu’un à la fois sur l’affichage inférieur. Commencez par faire HIRES. 


Même si vous êtes déjà en mode « haute 
résolution », HIRES servira à effacer l’écran. 


Puis, placez un curseur « invisible » au centre, en 129,199, grâce au troisième chif- 
fre « 3 », comme on l’a vu. Enfin, faites CIRCLE en donnant le rayon et le « FD » 
comme d’habitude : 


Pour effacer l‘écran 
Le Em, 





Positionnement d‘un 






HIRES curseur 
CURSET 129,1900,3 invisible 
CIRCLE 80,1 






Tracé d'une conférence 
de rayon = 80 


Au RETURN, une circonférence de rayon 89 s’inscrit autour du curseur fictif, au 
centre de l’écran. Selon les téléviseurs, elle pourra être ovalisée. Notez la syntaxe de 
CIRCLE : 







En nombre de 
points de l’image 





CIRCLE rayon,nombre FD 


Notez qu’au lieu de CURSET 129,199,3 vous auriez pu aussi bien écrire CURSET 
129,199,9 avec le même résultat ici. 


Pour tirer un trait, employez DRAW (« tracez », en anglais) ; DRAW trace un 
trait à partir de la position du curseur ét en se servant de valeurs relatives pour 
savoir jusqu'où, selon la syntaxe : 






Mettez un 










1 pour 
En nombre de ce ligr Mis 7 voir quelque 
colonnes chose ! 










DRAVW déplacement horizontal, déplacement vertical,nombre FD 


Supposons que votre curseur se trouve toujours en 129,199 ; sinon, remettez-le à 
cette place. 


La commande CIRCLE ne déplace pas le 
curseur. Par contre, DRAVW le déplace et 
l’amène au bout du nouveau trait tiré. 
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Commandez alors : 








| DRAW 30,60 ,1 
«De 60 vers 
le bas» 


Et tracer un trait reliant ce nouveau 
point au curseur 
_— 






CE Ilez de 30 vers la 
droite .…» 






Au RETURN, un trait oblique partant du centre de votre circonférence va s’ins- 
crire, tel la grande aiguille d’une montre pointant 25 minutes. 


Attention : maintenant, le curseur est au bout 
de votre trait, donc en 129 + 39 = 159 et en 
1998 + 69 = 169, donc en 159,168. 


Vérifions-le en traçant un carré, à partir de 159,169, donc ; notre carré va s’accro- 
cher au bout de l’aiguille de montre : 


Côté horizontal 
supérieur 


Côté vertical, 









DRAW 5,0 ,1 : 
DRAW 9,51 à droite 
DRAW -5,0 ,1 
DRAW 9,-5,1 TE 
Rte > _ À Côté horizontal inférieur, ) __ __ 
NRA 





Côté vertical de gauche, 
vers le haut 





Sur l’écran, vous avez maintenant ceci : 














CURSET es 
120, 100, 3 , 
curseur 


invisible 







Le tout en 
blanc sur fond 





Et notre 
carré 
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Appréciez la facilité des tracés et leur finesse ! Mais ce n’est pas tout : DRAVW trace 
des traits continus mais, grâce à PATTERN, vous allez pouvoir tirer des traits dis- 
continus. Il suffit de faire suivre PATTERN d’un nombre compris entre Ÿ et 255. 


Pourquoi ces valeurs ? Si vous connaissez le 
binaire, vous savez que, sur 1 octet, on peut 
coder de 8 à 255. La structure du mot binaire 
(ses # et ses 1) définit l’aspect du trait 

à obtenir. 


Mais sans connaître le binaire, faites quelques essais au hasard, ou plutôt, com- 


mencez par des pointillés réguliers avec PATTERN 15 ; la séquence est la sui- 
PATTERN vante % 


Pour effacer l'écran 










HIRES 
CURSET 29,100,3 
PATTERN 15 
DRAW 100,0 ,1 


Plaçons le curseur invisible 
en 20, 100 

















On définit la structure 


Et on trace des tirets réguliers sur Las 
100 points du tireté … 


Essayons maintenant un programme qui va tracer un cercle de rayon s’accroissant 
continûment, puis décroissant jusqu’à disparaître, puis re-grandissant à nouveau, 
etc. Pour cela, on va rédiger les instructions en mode texte. Pour revenir à ce mode, 
frappez simplement TEXT, puis RETURN ; et entrez : 














19 HIRES DT 
Pour 2. PRE 128100 Pour ouvrir et étaler 
. 30 FOR N=1 TO 89 
réduire 49 CIRCLE N,1 le cercle 
59 NEXT N 
60 FOR N=89 TO 1 STEP -1 
79 CIRCLE N,9 
80 NEXT N 
90 3 


Ici, il faut effacer ; donc 
le nombre FD est 0 









On recommence 






Faites RUN : l’écran passe en mode HIRES et notre cercle se forme, grandit 
jusqu’à 89, puis commence à diminuer, etc. C’est parce qu’il faut effacer que, pour 
CERCLES le réduire, on a mis CIRCLE N,9 à la ligne 79. Arrêtez cela avec CTRL/C. 
A GEOMETRIE Essayons, maintenant, d’en faire autant avec des circonférences et non plus des cer- 
VARIABLE cles (la circonférence est le périmètre d’un cercle ; un cercle est une surface !). Pour 
cela, il faut effacer le cercle précédent après avoir affiché le suivant. Le programme 
est sensiblement le même que ci-dessus ; on a ajouté deux lignes d’effacement, en 
45 et 75, et modifié les lignes 39 et 69 (bien que la modification de 69 soit totale- 
ment inutile : on aurait effacé une ligne inexistante, et après ? Mais c’est pour le 
principe) ; ces modifications sont dûes au fait que le Basic refuse de tracer un cercle 
de rayon ÿ et considère que c’est une erreur ; il ne faut donc pas qu’un calcul de 
rayon donne zéro. Voici ce programme : 
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POINT 
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D Pour effacer, en mode 
croissant, le cercle 
précédent : (N — 1) 


= 
m 
x*< 
æ 


rrgez rrzmo 
ozmmizmmI — 








© © M -J O O1 B F GC ND — 
eaoeunssoeueses 
DZOONZOONOZ 
Om——-OmM——-0C— 
1X7IDVXDIUVII 
0-00 00 wm 


Pour effacer, en mode 
décroissant : donc le cercle précédent 
était plus grand (N + 1} 





Au RUN, vos cercles seront faits de points. Avec les grands rayons, vous voyez net- 
tement un nouveau cercle se créer puis le précédent s’effacer. 


Sachez encore que vous pouvez aussi placer des caractères en HIRES, à l’emplace- 
ment du curseur, avec l’ordre CHAR (pour « character », mot anglais), mais sans 
le suffixe dollars, ici, (ce n’est pas un nom de variable chaîne !). La syntaxe est : 









0 pour standard 
ou 1 pour 


caractère 
{ graphique 


CHAR code ASCII,standard ou graphique,nombre FD 














C'est le code ASCII 
du caractère, 
de 32 à 127 







Comme 
précédemment 


C’est facile à essayer. Faites CTRL/C si vos cercles sont toujours en évolution, 






puis : 
Pour effacer l'écran 
RE CN ET On, Placez le curseur encore 
Dre 120,100,3 une fois au centre 
L 
CHAR 83,0 ,1 





Pour afficher le caractère standard 
de code 83 


Au dernier RETURN, le caractère de code 83, toujours un S, se place au centre de 
l’écran. 


Enfin, vous pouvez demander au Basic de quelle « couleur » (fond ou encre) est un 
point quelconque, précisément avec l’ordre POINT. Il vous répondra par le nom- 
bre FD et donc par 9 pour fond, mais par — 1 pour encre ; encore faudra-t-il que 
vous reveniez en mode TEXT pour pouvoir lire la réponse. Cela donnera : 
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Retour au mode 
re ee texte, pour 


HIRES pouvoir lire 
CURSET 129,100 ,1 la réponse 


TEXT 


PRINT POIiNT(120,190) 
1 Interrogation et... 


… Réponse : 1 (et même 1) 
car c'était bien «encre» 












3. Couleurs en HIRES 


Mettre de la couleur en HIRES est un peu plus subtil. Notons, tout d’abord, que 


FILL l’ordre est FILL (pour « remplir »), et qu’il doit être suivi par 3 paramètres : 


On travaille 
par «paquet» 
de 6 colonnes 
il y en a 

donc 240/6 = 
40 













Attention : il y a 
200 lignes 

mais vous devez donner ici 
le nombre de lignes à 
remplir à partir de la 
position du curseur 









Comme de coutume : 
ajoutez 16 à 

la couleur de 
base pour 
le «fond» 














FILL nombre de lignes,nombre de blocs de colonnes,couleur 


Ne vous préoccupez pas du second paramètre, pour l’instant, fixé à 1, et frappez : 


CPour 1 ligne 


RE RS ER EE EE Couleur : 
rouge 












Au RETURN, la ligne supérieure de l’écran passe en rouge. Pourquoi elle et elle 
seule ? Puisqu’on n’a pas indiqué de CURSET pour positionner le curseur, celui-ci 
s’est mis d’office en 0,9 ; d’autre part, le premier paramètre est 1, donc une seule 
ligne s’est teintée. Si vous faites maintenant : 





Vous allez colorier en vert les 8 lignes suivantes. 


Dès lors que vous mettez des lignes en 
couleur, le curseur se déplace de lui-même et 
passe à la ligne suivante. 
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Essayez de placer le curseur au début d’une ligne, par exemple la ligne 199, avec la 
position 9,199, pour placer du cyan (couleur 227) : 


a er . 
CURSET 9,199 ,1 visible 
,22 


FILL 15,1 





A5 lignes 





Au RETURN, 15 lignes se colorent en cyan (bleu-vert) à partir de la ligne 199. 
Bien, essayons, maintenant, de démarrer sur une colonne à mi-course : 





Au RETURN, 3 lignes jaunes démarrent à partir de la colonne 128. Si vous refaites 
ensuite un : 


7 lignes en bleu vont se placer en-dessous, toujours à partir de la colonne 128. 


Notez bien que c’est le curseur qui donne la 
position de la colonne de départ, pour FILL. 


Pour illustrer un peu les possibilités de couleurs de l’Oric, et faire une pause, entrez 

et exécutez ce programme qui remplit de couleurs aléatoires toutes les lignes, de 9 à 
LIGNES DE 199. Il n’est pas nécessaire de positionner le curseur au départ puisqu'il se place 
COULEURS automatiquement en Ÿ,9 et que chaque ligne teintée le fait avancer d’une ligne : 

ALEATOIRES 





Choix aléatoire de 
la couleur 








Faites RUN et vous obtiendrez une belle palette de lignes successives se suivant 
dans des couleurs placées au hasard. 

Passons maintenant au paramètre bloc de colonnes : il agit par « paquets » de 6 
colonnes d’un coup ; chaque ligne de 249 colonnes comporte donc 49 « paquets ». 


Attention : ce paramètre ne fonctionne pas 
avec les couleurs ! Si vous le spécifiez, que ce 
soit de 1 à 49, c’est toujours toute la ligne qui 
va se colorier. 


Par contre, il fonctionne avec des caractères spéciaux où le n° 63 représente un 
pavé blanc. Essayez : 
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C’est du blanc, 
dans ce mode 





Au RETURN, un pavé blanc de 6 lignes sur 6 colonnes (1 « bloc ») se place à partir 
de 9,9. Le curseur passe à la ligne suivante ; frappez alors, ce qui suit : 









3 fois 6 colonnes 





Tout ceci est 
réellement en 
blanc sur 

fond noir ! 


FILL 6,6,63 


Au lieu de 63, vous pouvez placer d’autres codes. Par exemple, le code 45 vous 
donnera des verticales parallèles (FILL 9,12,45 par exemple), mais à l’évidence, 
c’est le code 63 qui sera le plus utile aux débutants. 

Pour créer une surface en couleur, on va mettre toute la bande voulue en couleur, 
puis effacer (avec du noir) l’excédent. Par exemple, pour un rectangle : 












On crée une bande en cyan 
à partir de la colonne 40 


Et on efface avec du 
noir, à partir de la 
colonne 80 






Vous pouvez combiner des quantités de choses, maintenant, en HIRES, mais nous 
devons encore évoquer le 3° paramètre de FILL qui ne sert pas uniquement pour la 
couleur. Nous allons cependant, en « intermède », vous présenter quelques autres 
ordres importants du Basic « classique » qui vont nous servir. Pour cela, on va 
revenir au mode texte ; frappez donc TEXT, puis NEW. 


4. Répétitions 


On tire des nombres aléatoires entre Ÿ et 9 ; dès que l’on a tiré un as (un 1), on veut 
que le programme cesse. Comment réaliser cela ? Tout simplement en indiquant : 
répéter jusqu’à ce que le nombre soit un as. Le mot répéter s’écrit REPEAT, en 
anglais, alots que jusqu’à se dit UNTIL : 
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«Répétez...» Cirage d'un nombre aléatoire 










AT > 

T(RND(9)*x10) CET 
que N=1)» 

IL N=1 

BRAVO, VOUS ETES UN AS !’ 


La ligne 19 REPEAT ordonne la répétition de route la séquence incluse jusqu’à la 
ligne UNTIL (la ligne 49, ici), tant que N ne sort pas à 1. Donc, tant que N n’est pas 





REPEAT 1, on va revenir de 4ÿ à 19. Dès que N = 1, la boucle est terminée et le Basic passe en 
UNTIL 59. Voici ce que donnerait un RUN : 
RUN 
(1) 
È On a tiré enfin 
3 
9 
1 
BRAVO, VOUS ETES UN AS ! 


Il existe une autre façon de procéder, qui consiste à écrire « si N= 1, alors écrire 
Bravo, vous êtes un as ! ». Le mot si se dit IF, alors se dit then ; c’est un peu plus 

compliqué ; commencez par supprimer la ligne 19 et conservez 29,39 et 59 ; puis, 
frappez 49 et 45, ce qui donne pour le programme complet : 





29 N=INT(RND(9)x*x10) 

30 PRINT N 

40 IF N=1 THEN GOTO 59 

45 GOTO 2 

59 PRINT “BRAVO, VOUS ETES UN AS !" 


Ici, la ligne 49 renvoie en 59 à la condition que N= 1 ; sinon, le renvoi est ignoré, et 
le Basic passe à l’instruction suivante qui est 45, avec le renvoi au début. Voici 
l’organigramme de ce programme : 








Tirage du nombre 















aléatoire N Ligne 20 

Ligne 45 7 . 
«GOTO 20» Affichage de N Ligne 30 
Ligne 40 
Affichage du message final Ligne 50 


Organigramme de la 
boucle IF... THEN 





ELSE 


BRANCHEMENT 
CONDITIONNEL, 


INCONDITIONNEL 





OPERATEURS 


RELATIONNELS 
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Faites un RUN : le résultat est rigoureusement le même. Notons que, dans la ligne 
49, on peut se permettre d’écrire tout simplement : 


Le «GOTO» est implicite 


Bien mieux, on peut cumuler les lignes 49 et 45 en ajoutant, en 49, une option sup- 
plémentaire : « SiN = 1 alors 59, mais sinon aller en 29 ». Sachant que sinon s’écrit 
en anglais ELSE, le programme complet devient : 





Si N = 1, on va en 50, sinon, 
on passe en 20 







29 N=INT(RND(9)*x10) 

30 PRINT N 

49 IF N=1 THEN 50 ELSE 20 

59 PRINT "BRAVO, VOUS ETES UN AS!" 


Un RUN donnera rigoureusement le même résultat. 


L’ordre IF... THEN est appelé un 

« branchement conditionnel », ce qui semble 
évident : le branchement ne se fait que si la 
condition est remplie. 

Par opposition, GOTO est appelé un 

« branchement inconditionnel ». 


Dans ces programmes, la condition était l’égalité, avec N=1. Mais il peut y en 
avoir d’autres, qui s’inspirent de l’arithmétique classique ou de la logique ; si vous 
les avez étudiées, ils n’offriront pas de mystère pour vous. En voici la liste : 


OPERATEURS RELATIONNELS 


Egal 
Plus petit que 
Plus grand que 


Plus grand ou égal 
Plus petit ou égal 
Différent de 


ET logique 
OU logique 
Négation logique 
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5. Lecture d’une touche avec KEY$ 


L’ordre KEYS$ (ce mot provient de « key », touche), ordonne au Basic de lire le cla- 

: LECTURE vier, au cours de l’exécution d’un programme ; celui-ci « ramène » le caractère cor- 
D'UNE TOUCHE respondant à une touche précisément frappée à cet instant, sous forme d’une 
chaîne d’un seul caractère d’ailleurs. C’est ce qui explique la présence du symbole 
« dollar » au bout du mot key. La suite dépendra de ce que vous avez prévu. 
Dans le programme suivant on demande, par exemple, si la touche frappée est un Z 
et si oui, on affiche MERCI. Si non, on renvoie à ce même ordre de lecture du cla- 
vier avec KEY$, ce qui donne : 





T "FRAPPEZ SUR LE Z" 
EY$="Z" THEN PRINT "MERCI" 


ef 
1 








«Lis le clavier : si la touche frappée est le 
Z, écris MERCI» 


La ligne 19 affiche le message : Frappez sur le Z. A la ligne 29, on ordonne au Basic 
de lire sur le clavier (KEY$), ce qu’il fait ; s’il lit un Z, il affiche MERCI. Sinon, 
comme dans tout ordre IF... THEN, il passe à la ligne suivante qui le renvoie en 2ÿ 
pour poursuivre la lecture du clavier. Au RUN, vous aurez : 








Dès que 
vous avez 
frappé 
sur le 

Z 









Si vous frappez sur le Z, le mot MERCI s’affiche. Mais ensuite, le programme con- 
tinue d’attendre, et à chaque frappe du Z, il ré-affichera un nouveau MERCI. Afin 
de ne tenir compte que de la première frappe du Z, il faut compléter la ligne 29 avec 
un END, ce qui signifie que dès que l’on affiche un MERCI, le programme prend 
fin ; ce qui donne : 


T "FRAPPEZ SUR LE Z”" 
EY$="Z" THEN PRINT "MERCI" :END 
29 


zm 











Rappelez-vous que le double-point 
est le séparateur officiel 


Notez bien ce point essentiel : le Basic va lire 
le clavier à l’instant où il rencontre l’ordre 
KEY$. Il ramène le caractère (la chaîne de 
un caractère, plus exactement) correspondant 
à la touche qui est justement frappée à cet 
instant. Si aucune touche n’est frappée, il 
ramène une chaîne vide, (donc ”” ”?). 


Voici un petit programme appliquant KEY$. Entrez-le, mais en le lisant, essayez de 
deviner ce qu’il va produire ; si vous ne trouvez pas, exécutez-le, et lisez la suite : 
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ATTRIBUTS 














FF, l 
Co ur effacer l'écran C'est une chaîne vide : il 


n'y a rien dans les guillemets 





19 CLS 

29 IF KEY$="" THEN 29 
39 PLOT 18,12, ‘"AIE" 
40 WAIT 50 

59 GOTO 19 





PLOT : rappelez-vous, c'est 
pour afficher à une position 
imposée, ici colonne 18 
et ligne 12 


Au RUN, l'écran s’efface. Si vous frappez une touche, un « AIE » s’affiche un ins- 
tant (WAIT 59) au centre de l’écran ! Faites CTRL/C pour stopper ce programme. 
Que s'est-il passé ? A la ligne 29, on commande la lecture du clavier avec KEY$ ; le 
Basic ne lit rien tant qu’une touche n’est pas frappée, ce qui correspond à une 
chaîne vide. Dans ce cas, la ligne 29 se renvoie à elle-même et le Basic va continuer à 
surveiller le clavier. Dès qu’une touche est frappée, la condition posée par le IF 
n’est plus remplie et dans ce cas, le THEN n’est pas exécuté : le Basic passe à la 
ligne suivante, qui commande l’affichage de AIE au centre de l’écran, puis on 
attend 9,5 seconde (ligne 49), et enfin on revient en 19 pour effacer l’écran et 
recommencer. 

6. Les attributs 

Après cette escapade, nous pouvons revenir à l’ordre FILL pour examiner son troi- 


sième paramètre qui fixe la couleur, ou d'autres attributs. Ce paramètre va de 9 à 
127 inclus ; voici ses groupes d’actions : 


24 à 31 inclus Agit sur la « fréquence de balayage » 
de l’image : ne vous en servez pas ! 
32 à 127 inclus Sert à la définition de motifs graphiques 


Dans ce tableau, la ligne « obscure » est celle des valeurs de 8 à 15. Les fonctions 
sont les suivantes : 


Caractères alphanumériques du clavier standard 
Caractères graphiques (rappelez-vous du mode LORES 1) 
19 Caractères standards, doublés (sur 2 lignes) 
11 Caractères graphiques, doublés (sur 2 lignes) 
12 Clignotement, caractères alphanumériques 
13 Clignotement, mais caractères graphiques 
14 Clignotement alphanumérique, doublé (2 lignes) 
15 Clignotement graphique, doublé (2 lignes) 
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CLIGNOTEMENT 


LIGNES DOUBLEES 





CARACTERES 
EN DOUBLE 


HAUTEUR 











Calcul de 
l'attribut 


Placement 
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Les deux nouveautés résident dans le clignotement et les caractères doublés, car on 
a déjà examiné le reste. Commençons par le clignotement : on va placer un cercle et 
le faire clignoter : 










Création du cercle, 
comme on l'a déjà vu) __ — 


On ramène le curseur 
en haut et à gauche … 











. Et on fait 
clignoter tout 
l'écran (sur 199 lignes) 





Vous pouvez mettre 
ici 12 ou 13 













Le second placement du curseur a été fait en 9,9 mais en réalité, il suffisait de le 
situer de façon qu’il englobe le cercle. Essayez d’autres valeurs, en modifiant 
ensuite le nombre de lignes à balayer (moins de 199, selon ce qu’il reste à partir du 
curseur). 


Pour examiner les caractères doublés, on va procéder autrement : vous les obtien- 
drez soit avec le suffixe 19 ou 11, comme le montre le tableau ci-dessus, soit en 
frappant au clavier CTRL/D. Frappez CTRL/D puis, pour expérimenter, frappez 
FRERE JACQUES, ce qui donnera : 

Ca. 


La ligne a été 
doublée 









FRERE JACQUES 
FRERE JACQUES 






Refaites CTRL/D pour revenir au mode normal. En fait, ce doublage de ligne 
n’offre un réel intérêt que pour doubler des caractères de hauteur, soit en définis- 
sant des caractères spéciaux (ce que l’Oric vous permet, ainsi que l’exercice-jeu 18 
vous l’a montré), soit à l’aide des caractères graphiques ou des commandes graphi- 
ques. 


Exploiter tous ces ordres reste encore assez subtil, et ne peut venir que de l’expé- 
rience car, malheureusement, nous ne pouvons vous en montrer ici toutes les com- 
binaisons. À moins de vous proposer un programme qui en mêle aléatoirement plu- 
sieurs : on va employer FILL pour remplir des rangées (de nombre aléatoire) avec 
un code — suffixe aléatoire qui pourra fournir de la couleur, du clignotement, des 
motifs graphiques. Ce programme offre, en outre, l’avantage d’incorporer un IF... 
THEN et un REPEAT UNTIL. Vous trouverez à la suite quelques explications 
nécessaires : 









10 HIRES 

20 REPEAT 

É+- A=RND(9)x*x128 

40 IF A>23 AND A<32 THEN 30 : 
[er C=RND(9)x249 Remplissage 
69 R=RND(9)x1009 en fonction 
79 CURSET C,R,3 de À 

89 FILL RNDI9}*x99+1,1,A 

90 UNTIL KEY$<> 
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La ligne 29 ordonne la répétition de toute la séquence allant jusqu’à 99. Le UNTIL 
KEY$< > " " signifie jusqu’à ce qu’une touche soit frappée ! Décomposons : 
<> signifie différent de, et “ “ est une chaîne vide ; or, dès qu’une touche est 
frappée, elle se traduit par un caractère que sera « A », ou « B », ou l’espace donc, 
une chaîne non vide ; donc, à ce moment, le programme stoppera. 


En 39, on calcule aléatoirement la valeur de l’attribut A, qui viendra au bout de 
FILL. Mais attention : si vous considérez notre tableau précédent, vous constaterez 
que les valeurs 24 à 31 sont interdites. Par conséquent, on cherchera, à la ligne 49, 
si À ne tombe pas dans cette gamme et si oui, on repart en 39 tirer une autre valeur. 
Le calcul se fait ainsi : Si À est supérieur à 23 mais aussi (c’est le ET logique, qui 
s’écrit AND) si À est inférieur à 32 (donc, s’il est compris entre 24 et 31), aller en 
30. 


Puis, en 59 et 69, on calcule aléatoirement le positionnement du curseur, colonne et 
rangée sans « sortir » de l’écran, ce que le Basic identifierait à une erreur, et l’on 
place ce curseur (invisible) en 79. Remarquez que les calculs de RND ne font pas 
appel à l’entier de la valeur obtenue : les fonctions utilisant ces valeurs s’en char- 
gent d’office. 


Enfin, en 89 on commande le FILL à partir, donc, d’un curseur placé aléatoire- 
ment, sur un nombre de rangées aléatoires (de 9 à 99, qui s’ajoutent donc à R cal- 
culé auparavant) et avec un paramètre A aléatoire. Il est difficile de faire davan- 
tage. 


Lancez ce programme : vous allez voir des plaques de couleurs s’afficher, des 
caractères graphiques apparaître en colonne surtout car le FILL est doté d’un 1 en 
second paramètre, des clignotements se manifester. Le jeu changera constam- 
ment, jusqu’à ce que vous frappiez sur une touche quelconque (résultat de la ligne 
99). L'image se figera alors, mais les clignotements se poursuivront. 
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QUESTIONS SUR LE CHAPITRE VII 
Vous en connaissez maintenant le principe ! 


. Dans le mode haute résolution, la définition de l’écran est de : 
CO 299 rangées sur 249 colonnes 
C 24 rangées sur 89 colonnes 


. L'ordre CURSET sert à : 
OC Tracer des traits en blanc sur fond noir 
[O Placer le curseur 


. CURMOV positionne le curseur : 
C1 Selon des coordonnées absolues (colonne,rangée) 
CO Par rapport à sa position antérieure 


. L'ordre CIRCLE doit être accompagné de paramètres précisant : 
[1 son centre, son rayon, et l’inévitable nombre FD 
[] Sôn rayon et le nombre FD 


. DRAV' tire un trait entre : 
CO Deux points dont il faut donner les coordonnées en valeur absolue 
CT La position actuelle du curseur et un point dont on donne les coordonnées en 
valeurs relatives à cette position 


. L'ordre FILL sert : 
© Uniquement à mettre de la couleur en HIRES 
[ A mettre de la couleur, mais aussi à exécuter d’autres commandes selon l’attribut 
(clignotement, motifs graphiques...) 


. REPEAT UNTIL ordonne : 
OLa répétition d’une séquence tant que la condition posée n’est pas réalisée 
CO Une temporisation 


. Si N=7, qu’affichera le programme suivant : 


59 IF N>8 THEN 79 
69 ? ’’BONJOUR'’’:END 
79 ? AU REVOIR’”’:END 


[] BONJOUR 
[ AU REVOIR 


. L'ordre KEY$, pour lire une touche : 
CO Stoppe l’exécution du programme pour attendre la touche 
O Lit.ce qui est frappé à la volée, au moment où le Basic rencontre cet ordre, mais 
n’arrête pas le programme 





Réponses page 176 
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CHRONOMËÈTRE DIGITAL PRÉCIS 


STR$ VAL DEEK DOKE PEEK POKE 





Pour un chronométrage précis, pourquoi ne pas se servir de l’horloge 
qui cadence les opérations élémentaires de l’Oric ! 

Elle est contrôlée par un quartz et doit donc donner de bons résultats. 
Le moyen le plus facile pour l’utiliser est l’instruction WAIT et c’est ce que 
nous avons déjà fait. Mais pour afficher il faut au minimum une instruction 
PRINT, ce qui va fausser le chronométrage. Une autre méthode consiste à 
interroger un ou deux octets de mémoire vive qui sont liés à l’horloge. C’est 
ce que nous allons faire : 


1 — ”’’Gratouiller”” les octets 630 et 631 pour fixer l’heure de départ. 
2 — Observer la variation du contenu de ces 2 octets. 
3 — Afficher ce contenu. 


De cette façon, on obtient directement un comptage à rebours au cen- 
tième de seconde, sur une durée maximum de 65 535 centièmes de secondes, 
soit près de 11 minutes. 


CLS REMARQUES 
INPUT"HEURE DE DEPART 1/108 S"3;HD 


DOKE 630,HD 


30 — point de départ du compte à rebours 


T=DEEK(630) 40 — un instant parmi d’autres 
PLOT 10,3, STRS$CT) 50 — affichage 
GOTO 40 





Fournissez comme heure de départ, 1 000, ce qui représente 10 secon- 
des. On observe un défilement rapide des 2 chiffres de droite, et celui de 
gauche qui bat la seconde. Mais nous n’avons rien prévu pour arrêter le 
chrono, et ce qui se passe en-dessous de zéro peut surprendre ! 

Arrivé à zéro les deux octets reprennent chacun la valeur la plus grande : 
255, ce qui donne à notre compteur une nouvelle jeunesse : (255 X 256) + 255 
soit 65 535. Et c’est reparti pour 655 secondes 35/100 ! 


Les chiffres s’affichent en vert, et pourtant on ne l’a pas demandé ! 

T est un nombre positif, et à la place du signe + se trouve un caractère 
invisible, dont le code est 2. 

Or c’est justement le code du vert comme couleur d’encre. 















1200 





HEURE DE DEPART 1/100 S? 


(au 2 de 
67/100 
195 


Nous avons employé deux fonctions aux noms barbares qui ne sont pas 
du Basic courant : DEEK et DOKE. 

Elles concernent toutes deux une paire d’octets voisins, DEEK pour lire 
et DOKE pour écrire. 
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A la ligne 30 on met la valeur de HD, dans les octets 630 et 631. 
Si HD vaut 1 000, l’octet 631 recevra 3 et l’octet 630 : 232, car 
3x256+232= 1 000. 


Puis grâce à DEEK (630) on lit ce qui se trouve dans ces 2 octets et le 
résultat est : (contenu de 631)x256 + (contenu de 630). 


Leur rôle est aussi de lire (PEEK) et d’écrire (POKE), mais un octet 
à la fois. PEEK (630) fournirait la partie basse du compteur et PEEK(631) 
la partie haute. POKE 630,0 ne remettrait à zéro que la partie basse de notre 
horloge 


Chronomètre digital avec arrêts provisoires et temps intermédiaire 











D DEPART 
A ARRET 
S :RAT TRAPANTE 
Z:REMISE À ZERO 
F:FIN 











Le menu du 
prochain programme 







Ce sont les 5 fonctions d’un chronomètre digital enrichi, avec affichage 
séparé des secondes et des centièmes. 


Ce programme comporte 5 boucles dans lesquelles on évolue grâce aux 


5 lettres DASZF, et nous avons voulu construire ces boucles comme des blocs 
d’instruction dont voici la liste : 


Répéter 


jusqu’à ce qu’on frappe D 


On part à zéro Répéter 













départ 
Le chrono tourne Répéter 
Répéter 

lecture et affichage du temps 

lecture du temps 

jusqu’à ce qu’on frappe A 
Redémarrage avec 
ou sans rattrapage Répéter 





lecture du clavier 
jusqu’à ce qu’on frappe D ou F ou S ou Z 


si on a frappé D, on repart où on s'était 
arrêté jusqu’à ce qu’on ait frappé 


Redémarrage à autre chose que D et S 
zéro À | | 
jusqu’à ce qu’on ait frappé F 


Fin 
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10 
20 
30 
40 
50 
69 
278 
80 
30 
11@ 
120 
110 
120 
130 
140 
150 
160 
178 
180 
190 
2@û 
210 
220 
230 
248 
250 


CLS : PAPER ? 
PLOT2,4, "D DEPART" 
PLOT2,5, "A:ARRET" 
PLOT2,6,"S:RATTRAPANTE" 
PLOT2,7,"2:REMISE À ZERO" 
PLOT2,8,°"F:FIN" 

A à PE 

FLOT °19;2,23 

REPEAT :UNTIL KEY$="D" 
DOKE 630,65535 

REPEAT 

DOKE 630,65535 

REPEAT 

REPEAT 

T=-DEEK(630) 

T$="  "4STRS(6S553S5-T) 
L=LENCTS) 
S$=MIDSCT$,L-4,3) 
C$=RIGHTSCTS,2) 

PLOT 2,2,S$ 

PLOT 5,2,":"4+C$ 
T=DEEK(630) 

UNTIL KEY$="A" 

REPEAT 
KS=KEYS 
UNTIL K$="D" 


OR K$="F" OR K$="S" 0 


R K$="2" 


260 
278 
289 





THEN DOKE 630,T 
AND K$C"S" 


IF K$="D" 
UNTIL K$O"D" 
UNTIL K$="F" 
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REMARQUES 

20 à 60 — le mode d’emploi 
70 à 80 — un beau cadre rouge 
90 — attente : à *’D’’ on part 


100 à 280 — boucle pour des chronométrages suc- 
cessifs avec remise à zéro 


110 — remise à zéro 


120 à 270 — boucle pour redémarrage sans remise 
à zéro 


130 à 230 — boucles de chronométrage jusqu’à ce 
qu’on tape D 


140 — T : le contenu du ’’décompteur”’ 

150 — T$ : la chaîne contenant 65 535 -T pour 
compter à partir de zéro et non pas décompter, et 
3 espaces à gauche pour cadrer 

160 — la taille de T$ 

170 — les secondes 

180 — les centièmes 

190 — affichage des secondes 


200 — affichage d’un : et des centièmes 


210 — mise en mémoire du temps qui servira si on 
arrête le chrono (arrêt de jeu) 


230 à 250 — boucle d’attente jusqu’à ce qu’on 
relance le chrono avecw D, S, Z, ou F 


240 — observation du clavier : si une touche est 
frappée, son code va dans R$ 


260 — si on tapé D, on repart sans rattrapage 


L’emploi de la structure REPEAT... UNTIL a l’avantage de ne pas faire 
appel aux numéros de lignes comme le fait GOTO... 

Ceci est commode en particulier si on veut placer une portion de pro- 
gramme dans une autre, comme ce sera le cas si vous souhaitez réutiliser 
ce programme comme auxiliaire dans vos programmes nécessitant un 


chronométrage. 
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CARACTÈRES ACCENTUÉS 


PEEK POKE READ DATA 





On peut redessiner n’importe quel caractère du clavier en respectant une 
convention fixée par le constructeur. Nous allons le faire pour combler une 
lacune : l’absence de caractères accentués. Il y a deux possibilités principa- 
les : modifier certains caractères standards ou toucher au jeu de caractères 
semi-graphiques. Laissons de côté ces graphiques carrés pour remplacer plutôt 
certains caractères du jeu standard peu employés dans un texte. 


Caractère Code Nouveau 
existant ASCII caractère 
64 








10 CLS :PRINT:PRINT'CREATION DE CARACTE 

RES ACCENTUES" 

29 GOSUB 12@ REMARQUES 

30 PRINT:PRINT"UOICI LES CARACTERES 0B Re PR 
TENUS :" de création 

40 PRINT 50 à 70 — boucle d’affichage 
59 FOR C=1 TO 12 des caractères obtenus 

69 PRINT CHR$(ACCI);","; 

?7@ NEXT C 


88 PRINT 


108 END 
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110 
120 
130 
14Q 
125; 
150 
16a 
170 
180 
1930 
200 
218 
220 
230 
240 
250 
260 
27@ 
280 
230 
300 
310 
328 
330 
340 
350 
360 
370 


DIM AC12) 

DATA 64,35,94,95,124,92,91,93, 123, 
60,62 

FOR C=1 TO 12 

READ ACCI'NEXT C 


DATA 16,8,28,2,39,34,30,0 
DATA 8,20,28,2,30,34,30,0 
DATA 4,8,28,34,60,32,30,0 
DATA 16,8,28,34,60,32,30,0 
DATA 8,20,28,34,60,32,30,0 
DATA 20,0,28,34,69,32,30,0 
DATA 8,20,0,24,8,8,28,0 
DATA 0,20,0,24,8,8,28,0 
DATA 8,29,28,34,34,34,28,0 
DATA 8,20,0,34,34,34,28,0 
DATA 16,8,0,34,34,34,28,0 
DATA 0,0,14,16,16,16,14,4 
FOR C=1 TO 12 

FOR L=Q TO 7 

READ D 

POKE 46080+ACC)x8+L,D 

NEXT L 

NEXT C 


RE TURN 


REMARQUES 


120 à 370 — sous-programme de création des nou- 
veaux caractères 


130 — réservation pour le fichier des codes 

140 — les codes des caractères à redessiner 

150 à 160 — boucle de lecture de ces codes 

180 à 290 — le ’’dessin”’ des 12 caractères 

300 à 350 — boucle pour chaque caractère 

310 à 340 — boucle pour les 8 lignes d’un caractère 
320 — lecture pour une ligne 


330 — modification pour cette ligne 


L’exécution du programme donne ceci : 


CREATION DE CARACTERES ACCENTUES 


VOICI LES CARACTERES OBTENUS 





et à partir de maintenant si vous tapez @ c’est un à qui s’affiche, pour # 


vous obtiendrez 4... 


Ceci veut dire que vous pourrez créer, stocker, comparer et afficher du 
texte contenant ces 12 caractères greffés. 

Pour illustrer la démarche suivie, prenons le cas du caractère à que nous 
dessinerons en respectant la grille imposée de 8 lignes et 6 colonnes : 
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N° de 
ligne 
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32 16 8 4 2 1 


28 


2 Valeurs à 


mémoriser 
30 


34 


30 





Ce dessin est mis en mémoire aux emplacements voulus grâce à 


POKE 46080 + A(C)+x8,16 


POKE 46080 + A(C)»8 + 7,0 


on a choisi pour à le code 64 ; ce caractère sera donc obtenu grâce à la 
touche 

Ainsi pour écrire bérêt il faudra taper b A rit 
Si vous utilisez ceci avec des programmes où figurent des caractères modi- 
fiés, le nouveau symbole sera affiché, mais le code ASCII restant le même, 
Basic s’en moque : 
un <sera noté à mais correspondra bien à ’’inférieur à’ ! 

Pour revenir au jeu de caractères *’normaux””, utilisez le bouton de réi- 
nitilisation ou tapez CALL 555. 
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LES CARACTÈRES SEMI-GRAPHIQUES À LA LOUPE 


HIRES CURSET CHAR DRAW 





En fin d’ouvrage, on trouvera une liste des caractères du jeu alterné 
(numéro 1) dont le code est compris entre 32 et 95. Voici un programme 
qui affiche le caractère choisi et reproduit les points qui le compose dans 
une grille très agrandie formée de 8 cases dans le sens de la longueur et 6 
cases dans la largeur. 








Une petite case : ) 
un point en 
haute résolution 















Une grande case : 
un «point» en 
basse résolution 










Les caractères obtenus seront composés de cases noires et blanches for- 
mant ce quadrillage : 


HIRES 

FOR X=90 TO 126 STEP 6 
CURSET %X,90, 1 :DRAUW 0,48,1 
NEXT X 

FOR Y=30 TO 138 STEP 6 
CURSET 90,Y;,1:DRAW 36,0,1 
NEXT Y 


FOR CT=32 TO 95 REMARQUES 
CURSET 10,10,@ 20 à 70 — dessin de la grile 
CHAR CT,1,1 
PRINT"'CODE :":PRINT CT 


20 à 40 — les barres verticales 

: 50 à 70 — puis les barres horizontales 

FOR Y=1Q TO 17 90 à 240 — boucle pour chaque caractère 

FOR X=10 TO 15 100, 110 — affichage du caractère en haut à gauche 
P=-POINTCX; 1) 
CURSET XXx6+31,YXx6+30,3 


CHAR 43,0,P 
NEXT x 160 — P vaut 1 pour un point allumé, zéro sinon 


120 — son code est écrit dans les 3 lignes du bas 


140 à 200 — boucles de remplissage de la grille 


NEXT Y 170, 180 — marquage d’une croix lorsque P vaut 1 


220, 230 — effaçage du caractère en haut à gauche 
CURSET 10,10,3 avant de passer au suivant pour éviter une 


CHAR CT,1,2 superposition 
NEXT CT 


END 
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exemple : voici la forme du caractère dont le code est 61. 


Le caractère graphique 
en grandeur nature 





Son agrandissement 








Passez-les systématiquement en revue (codes 32 à 95) et vous compren- 
drez mieux comment on passe d’un caractère au suivant. 

Au-delà de 95 le spectacle est moins varié : on retrouve par exemple le 
même caractère 16 fois de suite ! Puis la série recommence à partir de 160. 
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CRÉATION DE MOTIFS 








HIRES  CURSET CHAR DRAW DEF FN 





Le clavier de l’Oric comporte les symboles usuels tels que lettres de l’al- 
phabet, chiffres et signes de ponctuation, mais on peut encore créer d’au- 
tres symboles qui occuperont la même place sur l’écran qu’une lettre ou un 
chiffre, et pourront être manipulés de la même façon. La création de tels 
motifs est décrite dans le manuel fourni avec le micro-ordinateur, et vous 
pouvez en trouver plusieurs exemples dans le présent ouvrage (graphisme, 
jeux d’animation...). 


La démarche à suivre n’est pas très difficile, mais demande un soin atten- 
tif et une certaine habitude. Voici un programme qui vous facilitera le tra- 
vail : vous dessinez le motif souhaité en noircissant les cases d’une grille agran- 
die, et le résultat obtenu est une instruction DATA décrivant le motif. Au 
fur et à mesure que vous le dessinez sur la grile, le futur motif apparaît sur 
l'écran en grandeur nature. Ceci permet des retouches afin de parvenir à l’effet 
recherché. Il suffira ensuite de prévoir dans votre programme la lecture des 
informations contenues dans l’instruction DATA pour disposer du motif 
comme s’il avait toujours existé ! 


1@ HIRES 

2@ FOR X=90 TO 126 STEP 6 
38 CURSET *X,90,1:DRAW 0,48,1 
ag NEXT * 

5Q FOR Y-90 TO 138 STEP 6 
6Q CURSET 90,7Y,1:DRAN 36,0,1 


7@ NEXT Y 

80 : REMARQUES 

9Q@ INPUT'"'JEU" ;J 10 à 70 — tracé de la grille 

100 INPUT"CODE":CT 20 à 40 — boucle de tracé des traits verticaux 


119 CURSET 19,10,@ 
129 CHAR CT,J,1 


50 à 70 — boucle de tracé des traits horizontaux 


90 — choix du jeu de caractères 0 ou 1 


130 


140 FOR Y=10 TO 17 100 — code ASCII du caractère à modifier 


15@ FOR X=1@ TO 15 110, 120 — affichage de ce caractère tel qu’il est 
160 IF POINTCX,; T)=-1 THEN CURSET XX6+3 140 à 180 — boucle d’analyse de caractère et repré- 
1, YX6+30,3:CHAR 43,0,1 sentation avant agrandissement dans la grille 


17Q NEXT x 160 — pour chaque point formant le caractère, on 
189 NEXT Y marque une croix (+) dans la case correspondante 


130 : 200 et 210 — définition des fonctions de position 
208 DEF ENC(C)=CXx6+85 du curseur dans la grille 

210 DEF FNL(L)=LXx6+84 220 — position de départ : en haut à gauche 
228 L=l:Cz=] 
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REPEAT 
A=POINT(C+9,L+9) 
CURSET FNCCC)I,FNLCL),3 
CHAR 43,G,-NOT A 

WAIT S 

GOSUB 530 

CHAR 43,0,-A 

WAIT S 

UNTIL T$=CHR$(13) 


DIM FC8) 
FOR L=1 TO 8 
FC(L)=@ 
FOR C=1 TO 6 
FCL)=2XFCL)I-POINT(C+9,L+9) 
NEXT C 
NEXT L 
TEXT 
PRINT :PRINT'UOICI L?INSTRUCTION DA 
TA NECESSAIRE POUR OBTENIR LE MOTIF 
44Q PRINT:PRINT'"DATA ‘; 
450 FOR L=1 TO 8 
460 PRINT FCL);","; 
470 POKE 46080+1224XJ+CTXx8+L-1,FCL) 
48@ NEXT L 
498 PRINT CHR$(8);" " 
580 PRINT :PRINT :PRINT'"'MOTIF OBTENU :"; 
510 IF J=Q THEN PRINT" ";CHR$CCT) ELSE 
PRINT CHR$(27);"I";CHR$SCCT) 
520 END 
530 : 


T$=KEYS$ 

IF T$<>"" THEN CODE=ASC(T$) ELSE R 
ETURN 
520 IF T$="Q" THEN CURSET C+9,L+9,@:CU 
RSET FNCCC)J,FNLCL),3 
58@ IF T$="1" THEN CURSET C+93,L+9, 1 :CU 
RSET FNCCCJ, FNLCL),3 
590 IF CODE<8 OR CODE>11 THEN RETURN 
608 C=C+(CODE=8)-CCODE=3) 
61@ L=L-CCODE=19)+(CODE=11) 
628 IF C<i THEN C=1 
630 IF C>6 THEN C=6 
648 IF L<1 THEN L=1 
65Q IF L>8 THEN L=8 
660 RETURN 





REMARQUES 


240 à 320 — répétition jusqu’à ce qu’on tape 
”’return”? 


250 — mémorisation de l’état de la case allumée 
ou éteinte 


260 — on place le curseur dans la case (coin supé- 
rieur gauche) sans modifier ce qui s’y trouve 


270 à 310 — clignotement du signe + 
270 — effacement du + 
280 — temporisation 


290 — observation du clavier et modification d’une 
case : utilisation du sous-programme 


300 — affichage du + 
310 — temporisation 


340 à 400 — calcul des valeurs définissant le nou- 
veau motif 


340 — réservation pour le Zishier des codes de cha- 
que ligne 


350 à 400 — boucle sur les lignes 


360 — remise à zéro de la valeur caractéristique 
d’une ligne 


370 à 390 — boucle sur les 6 cases d’une ligne 
380 — calcul progressif de la valeur 


420 à 510 — résultat : ce qu’il faut faire pour recréer 
le motif plus tard 


440 à 480 — écriture de l’instructin DATA et mise 
en mémoire des valeurs définissant le nouveau motif 


REMARQUES 


550 à 660 — sous-programme de déplacement dans 


. la grille et de modification de celle-ci 


550 — mémorisation d’une frappe de touche 


560 — si on a appuyé sur une touche, CODE con- 
tient son code ASCII, sinon: fin du 
sous-programme 


570 — cas du zéro : effaçage du point dans le petit 
caractère et de la croix dans la grille 


580 — cas du 1 : allumage du point et d’une croix 
590 — fin du sous-programme pour les codes 
autres que ceux des 4 flèches 


600 — nouvelle position horizontale : c diminue de 
1 si on a tapé —, c augmente de 1 pour —, c ne 
change pas pour les 2 autres flèches 


610 — même démarche pour la nouvelle position 
verticale : ? L diminue de 1, Ÿ L augmente de 
1, sinon L ne change pas 


620 à 650 — blocage à gauche, à droite, en haut 
et en bas 


660 — fin du sous-programme 
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Exemple : 
Pour créer un coureur à pied à la place du motif €, il faut modifier 
le caractère 64 du jeu n° 0 : 


Avant la 
modification 


JEU? @ 
CODE? 91 





Le crochet apparaît alors en haut à gauche de l’écran, puis une grille 
se remplit de croix simulant les points de ce crochet. Une croix clignote dans 
la case du coin supérieur gauche de la grille. 

Vous pouvez déplacer cette croix dans les 4 directions afin de noircir 
les cases voulues (en tapant 1) ou de les blanchir (touche zéro). Pour termi- 
ner, tapez la touche RETURN. 





Après la modification 


Ce qu'on obtient 
quand on tape Return 


VOICI L’INSTRUCTION DATA NECESSAIRE 
POUR OBTENIR LE MOTIF 





DATA 8 ,28 ,9 ,30 ,4@ ,14 ,17 ,32 


MOTIF OBTENU : # 
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Le modèle réduit est mieux que celui de la grille ! 

A partir de maintenant, la touche [ correspond au coureur, et pour 
le recréer dans un programme après extinction de l’Oric, il suffit d’insérer 
ces cinq lignes. 


50000 DATA 8,28,9,30,48,14,17,32 
50818 FOR L=t TO 8 

50820 READ U 

50030 POKE 46080+91Xx8+L-1,U 
50840 NEXT L 


2 — em — 


Et voici cinq possibilités pour faire apparaître le coureur : 


— taper L , mais ça n’est valable qu’en mode immédiat. 
— taper : 






PRINT 










LS RE 






PLOT 10: 15391 


- 
à LOPES 6 CURSET 25,18,0 En mode 
CHAR 91,0,1 haute résolution 
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COURBE DIGITALISÉE 


HIRES  CURSET DRAW 





Pour représenter, à l’aide d’une courbe, un relevé d’observations, par 
exemple la taille d’un enfant selon son âge, il faut une préparation afin d’uti- 
liser raisonnablement la feuille de papier, puis vient le report des points aux 
emplacements convenables ! Nous allons confier au programme suivant la 
préparation du travail, et il suffira de taper les coordonnées de tous les points 
pour qu’ils apparaissent enfin sur l’écran, à leur place respective. 


CLS :PRINT 
PRINT'TRACE D’UNE COURBE DIGITALISE 


INPUT"'NOMBRE DE POINTS" ;NP 
DIM XCNP), YCNP) 


FOR I=1 TO NP 

PRINT "POINT NO "31; 

INPUTUX, + AS ACIIS YET) 

NEXT I 

PRINT :PRINT'"'RECHERCHE DES EXTREMES 


GOSUB 248 


HIRES 
FXx=233/CXS-XI) 
FY=199/CYS-YI) 
FOR I=1 TO NP 
RAE=CXCIJD-XIJDXFX 
YE=CYS-YCIDDXFY 
CURSET XE,YE,1 





REMARQUES 


40 — réservation pour les fichiers x et y des coor- 
données des points 


60 à 90 — boucle d’introduction de ces coordonnées 


120 — réalisation du sous-programme de recher- 
che des extrêmes 


140 — on passe au mode haute résolution, blanc 
sur noir 


150, 160 — facteurs d'échelle horizontaux et 
verticaux 


170 à 210 — boucle de tracé 


180, 190 — position horizontale et verticale sur 
l’écran 


200 — allumage du point 
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REMARQUES 


xs ; C 1 ) 260 à 390 — sous-programme de recherche des 
extrêmes 


280 TI=YC1) 260 à 290 — amorce de la recherche : la première 
290 YS=Y(1) valeur x et y 

300 : 
319: FOR T=2 TO NP 380 — si on trouve une valeur plus petite que celle 
320 IF XCID<XI THEN XI=XCI) qu’on a retenue pour l'instant, c’est celle qu’on 
330 IF XCID>XS THEN XS=XC1) ci mures À di oh 

34Q IF YCI)D<YI THEN YI=Y(CI) 330 à 350 — idem pour les trois autres extrêmes 
350 IF YCIDDYS THEN YS=YCI) 380 — si la courbe est une ligne horizontale ou ver- 
360 NEXT I ticale, on ne peut pas la cadrer dans l’écran ! 
370 

380 IF XI=XS OR YI=YS THEN PRINT'REUOI 

R LES COORDONNEES" :END 

390 RETURN 


310 à 360 — boucle d’analyse des valeurs suivantes 





Exemple : 


Représentation graphique de la taille d’un individu en fonction de son 
âge. 





Nombre de points : 17 


TRACE D'UNE COURBE DIGITALISEE 
NOMBRE DE POINTS? 17 
POINT NO 1 x Y? 0,50 
POINT NO 2 Y? 
POINT NO 3 Y? 
POINT NO 4 Y? 
ie) Y? 
Y? 
Y? 
VP 


POINT NO = 
POINT NO 
POINT NO :. 
POINT NO 
POINT NO 
POINT NO 


X X X X X OX X XX 
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14,168 
16, 164 
18;:165 
29,166 
25; 166 


RECHERCHE DES EXTREMES 





AUTRE POSSIBILITÉ DE TRACÉ 


On utilise pour le tracé précédent la résolution graphique maximum de 
l’Oric. Si l’on désire des croix au lieu de points, il suffit de modifier’ ainsi : 


14Q HIRES REMARQUES 


150 FxX=237/CXS-X 1) 150, 160 — facteur d’échelle horizontal et vertical 
160 FY-192/CYS-YI) en s’interdisant de placer les centres de croix sur 
les bords de l’écran 


170 FOR I=1 TO NP 

189 XE=CXCI)2-XI)XFX+1 180, 190 — position horizontale et verticale sur 
Péc rès décal del éviter le bord = 

198 YE=CYS-YCID)XFY+1 dl dant de l'écran (il faut Re Ls un 


208 CURSET XE-1,YE,1:DRAU 2,0,1 ces croix !) 
205 CURSET XE,YE-1,1:DRAU @,2,1 200 — la branche horizontale de la croix... 
210 NET 1 205 — et la branche verticale 
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Avec les mêmes données que précédemment on obtient : 





Comment tracer une croix en forme de X au lieu d’un plus (+) ? C’est 
facile, il suffit de remplacer les lignes 200 et 205 par : 
200 CURSET XE-1, YE-—1, 1 : DRAW 2,2,1 
205 CURSET XE-1, YE+1, 1 : DRAW 2, —2,1. 

Nous avons entré les données dans l’ordre croissant, mais puique le pro- 
gramme détermine les extrêmes, vous pouvez entrer les vôtres dans n’im- 
porte quel ordre, à condition d’alterner la position horizontale et la position 
verticale. 
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COURBE PARAMÉTRÉE 





HIRES  CURSET DRAW PATTERN DEF FN 





Il est parfois plus facile de représenter une courbe en reliant l’évolution 
des coordonnées horizontale et verticale à celle d’un paramètre auxiliaire. 
Le cercle en est un exemple célèbre : on obtiendra des points régulièrement 
espacés si l’on fait varier régulièrement la position angulaire de ceux-ci. Il 
faut alors définir deux expressions : celle de l’abscisse (portée ici horizonta- 
lement) et celle de l’ordonnée (position verticale). Le programme aura éga- 
lement comme tâche d’utiliser au mieux l’écran pour le tracé. 


CLS :PRINT 
PRINT'TRACE D’UNE COURBE PARAMETREE 


DEF FNXCTJ=COSCT) 

DEF FNYCTJ=SINCT) 

INPUT'UALEUR MIN. DU PARAMETRE'M3TI 
INPUT'UALEUR MAX. DU PARAMETRE'STF 
INPUT'NOMBRE DE POINTS" 3;NP 

DIM XCNPJ, YCNP) 


PRINT :PRINT"CALCUL DES COORDONNEES 


T=TI 
TPAS=CTF=TIJ2CNP=1) 
FOR I=1 TO NP 
RACID=FNXCT) 
YCID=FNYCT) 
T=T+TPAS 

NEXT I 


PRINT :PRINT"'RECHERCHE DES EXTREMES 


GOSUB 348 


HIRES 
FX=239/CXS-XI) 
FY=199/CYS-YI) 
FOR I=1 TO NP 
RE=CXCII-XIDXFX 
YE=CYS-YCIDDXFY 
CURSET XE,YE,1 





REMARQUES 


10 — définition de l’expression de calcul de la posi- 
tion horizontale d’un point (abscisse) 


30 — définition de l’expression de calcul de la posi- 
tion verticale d’un point (ordonnée) 


50, 60 — introduction des limites de variation du 
paramètre 


70 — introduction de la finesse du tracé (nombre 
de points) 


80 — réservation de mémoires pour les fichiers des 
coordonnées 


20 — calcul de l’écart entre deux valeurs successi- 
ves du paramètre 


130 à 170 — boucle de calcul des coordonnées des 
points 


200 — utilisation du sous-programme de recherche 
des extrêmes parmi les valeurs des abscisses d’une 
part et celles des ordonnées d’autre part 
230, 240 — calcul des facteurs d’échelle 


250 à 290 — boucle de tracé des points 
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340 XI=X(1) 
350 XS=X(1) REMARQUES 
360 YI=Y(1) 
340 à 430 — sous-programme de recherche des 


370 YS=Y(1) extrêmes 
380 : 


240 à 370 — amorce de la recherche : la première 


390 FOR I=1 TO NP valeur 
408 IF XCID<XI THEN XI=XCI) 
410 IF XCID>XS THEN XS=XCI) 


390 à 440 — boucle d’analyse des valeurs suivantes 


400 — si on trouve une valeur plus petite que celle 


420 IF YCI)<YI THEN TI=YCI) qu’on a retenue pour l'instant, c’est elle qu’on 
438 IF YCID>DYS THEN YS=YCI) prend comme étant la plus petite 


44Q NEXT I 460 — puisqu'on veut utiliser au maximum l'écran, 
as@ : la courbe ne peut se réduire à une droite horizon- 


% tale ou verticale : rejet 
a6Q IF XI-=XS OR YI=YS THEN PRINT'"REUOI 
R LES COORDONNEES" :STOP 
47Q RETURN 





Exemple : 


Pour tracer un cercle, définissons les expressions pour les positions hori- 
zontales et verticales des points 


30 DEF FNXCT)=COSCT) 
4@ DEF FNYCTI=SINCT) 


Avec les limites zéro et 2+PI et 200 points, on obtient ce cercle aplati : 





TRACE D’UNE COURBE PARAMETREE 


VALEUR MIN. DU PARAMETRE? 9 
VALEUR MAX. DU PARAMETRE? 6.28 
NOMBRE DF POINTS? 200 







Ce que vous 
devez taper 


CALCUL DES COORDONNEES 





RECHERCHE DES EXTREMES 
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Pour comprendre pourquoi on obtient un ovale sur l’écran plutôt qu’un 
cercle, il faut se rappeler que notre but était d’occuper au mieux tout l’écran, 
et puisque celui-ci est plus large que haut... Le remède à ceci consiste à se 
priver d’une bande verticale de l’écran afin de travailler dans un cadre carré 
en modifiant le facteur d’échelle horizontal déterminé à la ligne 230. Si, de 
plus, on souhaite centrer la figure, il faut modifier le calcul de la position 
horizontale des points à la ligne 260 : 


220 HIRES 
230 Fx=182/(CXS-XI) 
248 FY=193/CYS-YI) 


250 FOR I=1 TO NP 230 — le facteur d’échelle horizontal sera identi- 
que au facteur d’échelle vertical, puisque, pour un 


(68 XE=CXCI)-KIIXFX+30 | cercle, xmax-xmin est égal à ymax-ymin 
270 YE=CYS-YCIDDXFY 

280 CURSET XE,YE;1 

23@ NEXT I 


REMARQUES 


260 — position du centre décallée vers la droite 


3Q DEF FNXCT)=COSCT) 
4Q DEF FNYCTI=SINCT) 


voici le résultat : 


TRACE D’UNE COURBE PARAMETREE 
VALEUR MIN. DU PARAMETRE? G 


VALEUR MAX, DU PARAMETRE? 6,28 
NOMBRE DE POINTS? 200 
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——_—_—_—_—_—_—_—_—_—"—"—"—"—"—"—"—"—"—"—"—"…"—"—"—"—"—"—"—"—"—"—"— 


CALCUL DES COORDONNEES 


RECHERCHE DES EXTREMES 









Il manque des 
axes : on va les 
ajouter … 





Afin de documenter la figure, nous allons tracer les axes de coordon- 
nées se coupant au point 0,0 en écrivant un sous-programme de tracé des 
axes qu’on utilisera à la ligne 300. 


220 HIRES 

[230 FX=239/CXS-X1) 
240 FY=199/CYS-YI) 
250 FOR.I=1 TO NP 
270 YE=CYS-YCIDDXFY 
280 CURSET XE,YE,1 


290 


NEXT I REMARQUE 








310 


300 GOSUB S512:REM AXES 


300 — utilisation du sous-programme de tracé des 
axes 


À REMARQUES 
PATTERN 215 
XO=-XIXFX 500 à 570 — sous-programme de tracé des axes 
YO=YSXFY 510 — motif du tracé 
IF X8>-Q AND X2<=239 THEN CURSET x 520, 530 — position sur l’écran de l'intersection des 
9,0, 1 :DRAU 2,199,1 axes 
550 IF YG>-G AND Y2<=199 THEN CURSET @ 540, 550 — tracé des axes horizontal et vertical, si 


, YO 
560 
570 





cela est possible 


s L'DRAW 239,0,1 
PATTERN 255 560 — on reprend le motif trait plein 


RE TURN 
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Exemples : 


Bien des figures peuvent être tracées telle que celle-ci avec : 


3Q DEF FNXCT)I=TXCOSCT) 
4Q DEF FNYCTI=TXSINCT) 


TRACE D’UNE COURBE PARAMETREE 
VALEUR MIN. DÙ PARAMETRE? QG 
VALEUR MAX. DU PARAMETRE®? 31,4 
NOMBRE DE POINTS? 400 


CALCUL DES COORDONNEES 


RECHERCHE DES EXTREMES 


Cu 
j 
! 
+ + F _ 
Ï 
ne: 
de 
i 
Î 
| 
don tel it ES 


ou en prenant : 


38 DEF FNXCTJI=T 
4Q DEF FNYCTI=CT-1)XCT+2) 
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TRACE D’UNE COURBE PARAMETREE 
VALEUR MIN. DU PARAMETRE? -3 
VALEUR MAX. DU PARAMETRE? 2 
NOMBRE DE POINTS? 28 


CALCUL DES COORDONNEES 


RECHERCHE DES EXTREMES 


' 
! 
Î 
! 
! 
| 
! 
| 
! 
i 
i 
i 
i 
Î 
i 
La 
! 
Î 
! 
| 
| 
| 
l : 

-| 





courbe tracée entre —3 et 2 avec 20 points 
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DIAGRAMME CIRCULAIRE 


HIRES  CURSET CIRCLE DRAW CHAR 





Pour comparer visuellement l’importance relative de plusieurs valeurs, 
on peut utiliser un diagramme circulaire encore appelé « camembert » ! Cha- 
que valeur est représentée par un secteur, une part du camembert, dont la 
taille lui est proportionnelle. La réunion de toutes ces portions forme un disque 


complet. 


CLS : PRINT :PRINT'DIAGRAMME CIRCULAIR 


PRINT :INPUT'NOMBRE DE VALEURS!" ;NP 


DIM UCNP) 
ST=Q 
FOR 1=1 TO NP 
PRINT'UALEUR NO "31; 
INPUT UCI) 
ST=ST+UCI) 

NEXT I 


HIRES 
*@=114:Y8=100 
R=60 | 
CURSET *x0,Y2,0@ 
CIRCLE R,1 
AE=2XPI/ST 
DRAW R;,9,1 


SP=0:A1=0 
FORI=1 TO NP 


SP=SP+UCI) 

A2=SPXAE 

CURSET X2,Y0,0 

DRAU RXCOS(A2),-RXSINCA2), 1 





REMARQUES 
30 — réservation de mémoire pour les nb valeurs 
40 — valeur initiale de S : somme des valeurs 


60 à 100 — boucle d'introduction et de cumul des 
valeurs 


90 — cumul 

130 — emplacement du centre du cercle 
140 — rayon du cercle 

150 — le centre 

160 — tracé du cercle 

170 — facteur d'échelle angulaire 


180 — tracé du bord horizontal de la première 
portion 


200 — valeur initiale de SP somme progressive des 
valeurs, et de A1, position angulaire d’un des bords 
d’une portion 

210 à 380 — boucle de découpage du camembert 


230 — cumul des valeurs 


240 — position angulaire de l’autre bord d'une 
portion 


250, 260 — tracé de bord 
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280 AM=(A1+A2)/2 

230 CURSET XB+R/2XCOS(AM), YB-R/2XSINCA 
N),8 

300 IF UCI)>=0 THEN CH$=MID$SCSTR$CUCI) 
), 2) ELSE CH$=STR$CU(I)) 

310 FOR C=]1 TO LENCCHS) 

320 CHAR ASCCMID$S(CCH$,C,1)),0@,1 


330 CURMOU 6,8,0 
34Q NEXT C 

350 

360 A1-A2 

378 NEXT I 

380 : 

390 END 


REMARQUES 


280 à 340 — affichage de la valeur à l’intérieur de 
la portion 


280 — angle moyen 
290 — point de départ de l’affichage 


300 — on exclut le premier caractère d’une valeur 
positive, car il ne plaît pas à la fonction ASC 


310 à 340 — boucle d’affichage des caractères qui 
constituent la valeur 


320 — affichage 
330 — on se décale pour écrire le caractère suivant 


360 — le bord final de la portion devient le bord 
initial de la portion suivante 





Exemple : diagramme circulaire de l’importance des différents moyens 
de transport de marchandises en 1982 : 


oléoduc 11 % 
voie fluviale 5 % 
route 49 
voie ferrée 35 % 


DIAGRAMME CIRCULAIRE 


NOMBRE DE UALEURS?T 4 
VALEUR NO 1 ? 11, 

VALEUR NO 2 7 5 
VALEUR NO 3 ? 49 
VALEUR NO 4 ? 35 






Faut-il regretter 
que la voie fluviale 
soit peu empruntée ? 


LE MOMENT MUSICAL 175 





26 


FILL : DU REMPLISSAGE AVEC 64 MOTIFS 


HIRES  CURSET CURMOV FILL CHAR 





L’instruction FILL permet de remplir rapidement une zone de l’écran 
soit en couleurs : 


FILL 1@,1,17 


soit avec des motifs de hauteur réglable et que l’on peut choisir dans un jeu 
de 64. Chacun de ces motifs est formé de bandes verticales noires ou blan- 
ches. Pour les comparer entre eux nous allons les placer l’un en-dessous de 
l’autre sur quatre colonnes. En face de chacun nous écrirons son code que 
vous pourrez placer dans une instruction : 


FILL 10,1,P 


HIRES 


PRINT:PRINT'MOTIFS OBTENUS AUEC FIL LÉNAADUEE 


30 à 140 — boucle permettant d'explorer les 64 
possibilités 


FOR P=32 TO 95 
IP=INT(P/16) 
KXP=IPx30 
YP=]1OXCP-IPXx16 ) 50, 60 — positions horizontale et verticale du coin 


inférieur gauche d’un motif 
CURSET xP,YP,@ 


40 — IP numérote les colonnes (0 à 3) 


70, 80 — dessin du motif 


FILL 8;1,P 
CURSET XP+10,YP,Q 90, 100 — préparation à l'écriture du code P 


P$S=STR$S(P) 110 — le chiffre de gauche 
CHAR ASC(MID$(P$,2,1)),0,1 150: 130 du dé droite 
CURMNOU 6,0, 

CHAR ASCCMNID$CP$,3,1)),0,1 

NEXT P 





La position des barres blanches obéit plus ou moins à un système de 
numération binaire. Faites votre choix : 
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NJ 


U) UC) (4j CU) 
VU O A1 8 G 


2 
D 
A 
> 

… 


MOTIFS OBTENUS AVEC FILL 





REPONSES AUX QUESTIONS SUR LE CHAPITRE VII 

1. En HIRES, la définition de l’écran est de 299 rangées sur 249 colonnes. 
2. CURSET sert à positionner le curseur. 

3. CURMOV déplace le curseur par rapport à sa position antérieure. 


4. CIRCLE est accompagné de son rayon et du nombre FD. (Son centre est fourni 
par la position du curseur.) 


5. DRAVW' tire un trait entre la position du curseur et un point dont on donne les 
coordonnées en valeurs relatives. 


6. FILL sert non seulement à mettre de la couleur mais commande aussi le clignote- 
ment, le placement de motifs graphiques, etc. 


7. REPEAT UNTIL commande la répétition d’une séquence tant que la condition 
posée n’est pas réalisée. 


8. Si N vaut 7, la condition N supérieure à 8 n’est pas remplie et, par conséquent, le 
branchement en 79 ne se fait pas. Donc, le programme passe en 69 et affiche 
BONJOUR. 


9. L'ordre KEY$ n’arrête pas le programme : lorsque le Basic le rencontre, à quel- 
qu’instant que ce soit, il lit le clavier. 


CHAPITRE VIII 


LE MOMENT MUSICAL 


Nous vous avons déjà montré comment programmer les quatre « bruits » qui exis- 
tent en instructions. Maintenant, c’est de la « musique » que nous allons faire. On 
examinera aussi, dans ce chapitre, quelques dernières instructions en Basic qui vous 
permettront de vous lancer sans hésiter dans la programmation. 


Principaux thèmes abordés 


SOUND Enveloppe des sons 
MUSIC Accord musical 
PLAY Période avec SOUND 
Notes musicales GET 

Canaux des sons 





1. MUSIC, pour commencer 


Pour faire de la musique, vous disposez de trois commandes qui sont SOUND 
(pour son), MUSIC et PLAY (pour jouer). En première approche : 


e SOUND sert à définir un son. Cet ordre est accompagné de 3 paramètres. Si le 
dernier n’est pas nul, le son est émis pour cet ordre, mais s’il est égal à zéro, le son 
est « mis en mémoire » et exécuté par un ordre PLAY suivant. 


PLAY e MUSIC, lui, ne définit pas n’importe quel son mais les notes de musique de la 
gamme. Son dernier paramètre joue comme avec SOUND. 
e PLAY exécute des sons (SOUND ou MUSIC) définis antérieurement. 


Commençons par l’ordre MUSIC. Pour jouer des notes de la gamme, il faut définir 
la note, bien sûr, mais indiquer aussi dans quelle octave elle se situe, quel canal de 
l’Oric elle emploiera et enfin, quelle sera sa puissance sonore (son volume). Ainsi, 
MUSIC doit être accompagné de 4 paramètres dans cet ordre : 


7 octaves, de 0 à 6 













12 tons, de 
1 à 12 : voyez 
ci-dessous 






De 1 à 15, 
avec 15 le 
plus fort; 

le O est un 
cas spécial 








Hyena3: 
mettez 1,2ou3 






MUSIC canal, octave,note, volume 


Notez les virgules de séparation : elles sont obligatoires. Commencez par essayer, 
en mode direct : 
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(No te 
Octave 
Canal 1 


MUSIC 1,2,8, 





Au RETURN vous reconnaîtrez un sol, 2° octave (si vous êtes musicien). Pour 
stopper le son, frappez sur n’importe quelle touche, la barre d’espacement de pré- 
férence. Si les touches ne sont pas sonorisées, tapez d’abord CTRL/F. 


Les octaves sont numérotées de 9 à 6, le 9 
étant le plus grave. 


Les notes, elles, sont données ainsi, si l’on reprend l’exemple d’un clavier de 


piano : 
OO © O OO à 


Do # Ré # Fa # Sol # La # 
/ 






A 


Le dernier paramètre de MUSIC situe le volume sonore. Essayez tout d’abord quel- 
ques combinaisons avec l’ordre MUSIC, en mode direct mais avec le canal 1. 


On va voir que, pour exploiter les 3 canaux 
sonores de l’Oric, il faut employer 
l'instruction PLAY. Donc, pour l’instant, 
restez-en au canal 1. 


En fait, le plus simple consiste encore à passer par le court programme suivant, qui 
va vous permettre de modifier à chaque fois tous ces paramètres : 


19 REM *MUSIC* 

29 INPUT "OCTAVE=";0 
39 INPUT "NOTE=";N 
49 INPUT "VOLUME=";V 
59 MUSIC 1,0,N,V 

609 GOTO 29 


A) 


CANAUX 


DES SONS 
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Les lignes 29 à 49 vont, grâce à l’ordre INPUT qui combine implicitement un 
PRINT de ce qui est contenu entre guillemets, vous demander ces divers paramè- 
tres ; voici ce que donnerait un RUN : 








Faites RETURN 
après chaque 
A entrée 









RUN 
OCTAVE=?7 3 
NOTE=? 5 
VOLUME=? 12 
OCTAVE=? 


nr ue Au dernier RETURN, /a 
note programmée 
retentit, mais 
aussi … 






. La question suivante 
apparait : dès que vous 
frapperez une touche, la 
note émise cessera 










Expérimentez plusieurs combinaisons, afin de bien maîtriser les valeurs des para- 
mètres : pour terminer, faites CTRL/C. 


2. Pour jouer : PLAY 
Si le dernier paramètre de MUSIC est un 9, l’ordre MUSIC n’est plus exécuté et 
dépend d’un autre ordre, PLAY. Celui-ci, à son tour, est accompagné de paramè- 
tres au nombre de 4 : 


1) — Le canal, qui détermine le, ou les canaux actifs (de Q à 7). 


2) — Le « bruit », qui agit sur ces sons bi’arres qu’on appelle bruits, programmés 
avec SOUND et non avec MUSIC (1 à 7). 


3) — L'’enveloppe, qui agit comme bruit mais cette fois, sur les sons. 
4) — La durée : c’est le temps pour l’exécution de « l’enveloppe » ou du « bruit ». 


Reprenons en détaillant, cette fois. 
e Les canaux sont ainsi numérotés : 


Programmation des canaux avec PLAY 


RE EE A NS 





e Le « bruit » ou « l’enveloppe » définissent ce qu’en termes techniques, on 
appelle la courbe enveloppe du son et qu’on pourrait ainsi interpréter : 
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Enveloppe des sons et des bruits 


None 
Son décroissant (durée déterminée) 
Son croissant (durée détérminée) 


Son périodique, continu, en « dents de 
scie » 


ENVELOPPE 


DES SONS 


Son périodique, continu, « ondulé » 


Son nom périodique, continu, difficile à 
définir 


Son périodique, continu, en dents de 
scie inverses de 3 


Son nom périodique, continu, différent 
de 5 et aussi difficile à définir. Mais on 
va écouter tout cela. 





e La durée, enfin, va de 9 à 32 767 ; pour comprendre son rôle, on va l’expérimen- 
ter. 
La syntaxe de PLAY est ainsi : 


0à7 Go 0 à 32767 


Las 


PLAY canal, bruit,enveloppe, durée 


A nouveau, toutes ces explications écrites sont indigestes si on ne pratique pas. 
Aussi, pour les expérimenter, va-t-on vous proposer un programme du même type 
que le précédent, ou le PLAY sera combiné à un MUSIC 1,2,8,9 (notez que le der- 
nier paramètre est un zéro, afin de passer la main au PLAY qui suit). Procédons 
cependant ici paramètre par paramètre pour commencer ; nous avons volontaire- 
ment séparé ces divers programmes d’essai afin que vous puissiez y revenir ensuite. 
Voyons pour la durée : 









Le O0 «passe la 
main» à PLAY 
pour 

exécution 










Pour PLAY, on a choisi le 
canal 1 et l’enveloppe 1 





N'oubliez pas de préciser le 
RUN 200 





Au RUN, le programme vous demande la durée. Commencez par frapper 1599 : 
vous obtiendrez un so/ comparable à celui d’un piano (le son s'éteint très vite). 
Moins de 598, le son est trop bref. Plus de 5969, il n’en finit plus de s’atténuer et de 
mourir. Essayez plusieurs valeurs, puis faites CTRL/C. 

Expérimentons, maintenant, l’enveloppe avec une durée de 154. Voici le nouveau 
programme : 


ACCORD 


MUSICAL 
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300 REM -ENVELOPPE, DE 1 A 7- 
319 MUSIC 1,2,8,0 

320 INPUT "ENVELOPPE"'";E 

330 PLAY 1,0,E,1500 

349 GOTO 319 

RUN 300 


Avec enveloppe= 1, vous retrouvez la frappe d’un piano. Avec 2, c’est l’inverse : le 
son démarre faible et s’amplifie jusqu’à son maximum, cela pendant la « durée » 
de 1599 (une durée supérieure lui accorderait davantage de temps). 

Avec 3, c’est un marteau qui frappe continuellement la note sol ; comme si vous 
faisiez 1 en permanence. Le 4, lui, vous donne à peu près le 2 en répétition conti- 
nue. Le 5 démarre bizarrement, un peu comme en 1, puis reste sur un son continu. 
Le 6 ressemble au 3, mais est encore moins harmonieux peut-être. Enfin, le 7 four- 
nit une montée rapide en puissance, comme le 2, et se poursuit par un son continu. 
Ces explications sont approximatives : rien ne vaut un essai. 

Franchissons encore un pas, en travaillant à la fois sur /’enveloppe et la durée avec 
la séquence suivante : 


100 REM -ENVELOPPE ET DUREE- 
119 MUSIC 1,2,8,9 

120 INPUT "ENVELOPPE';E 

139 INPUT "DUREE" ;D 

149 PLAY 1,9,E,D 

159 GOTO 129 

RUN 199 


Essayez plusieurs combinaisons ; pour l’enveloppe 1 et 2, le résultat est évident : le 
« piano » ou un son croissant, durant ce que vous fixez avec D. Essayez avec : 


e Enveloppe 3 : pour durée = 1999, c’est une enclume sur laquelle on frappe à 
coups répétés. À 19999, c’est la cloche d’une église (l’auteur fait un peu de poésie). 
A 199, c’est un moteur qui ne tourne pas rond. Le son se répète à chaque fois à per- 
pétuité, jusqu’à une nouvelle frappe. 


e Enveloppe 4 : avec D = 1999, c’est un avion qui marche très mal (ou une scierie) ; 
avec D = 19999, on obtient un son qui commence très fort, diminue, disparaît, puis 
réaugmente, atteint son maximum, puis rediminue, etc. Si D = 199, c’est un teuf- 
teuf rapide. 


e Enveloppe 5 : avec D = 1999, c’est un « point » suivi d’un son continu ; avec 199, 
on ne l’entend plus, mais le son est toujours continu ensuite. 


e Enveloppe 6 : reportez-vous au 3, à peu près. 
e Enveloppe 7 : comme 5, mais au lieu d’un « point », c’est un son croissant. 


En conclusion, la durée, avec l’enveloppe 5 et 7, agit sur la courte période prépara- 
toire du son, mais plus sur la suite. 

Si, de plus, vous faites des essais avec des « enveloppes » non prévues, vous risquez 
d’obtenir toutes sortes de choses curieuses et indescriptibles. 


3. Des accords 


Il est temps, maintenant, de vous montrer comment actionner plusieurs canaux 
simultanément. Pour cela, il faudra employer obligatoirement PLAY. Par exem- 
ple, pour travailler avec les 3 canaux, on sera en PLAY 7 pour le premier paramè- 
tre. Un accord do, mi, sol se programmeraïit ainsi : 
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PERIODE AVEC 
SOUND 
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Cette fois, on a programmé la puissance avec MUSIC ; c’est PLAY qui met en ser- 
vice les trois canaux (faute de quoi, seul le canal 1 fonctionnerait). 


Ici, PLAY ne sert qu’à programmer les 
canaux ; c’est pourquoi ses autres paramètres 
sont à zéro. D’autres valeurs ne joueraient 
pas sur le résultat. 


Essayez de remplacer le 7 de PLAY par d’autres valeurs ; à chaque fois, vous 
entendrez les canaux mis en service, 2 ou 1. Par contre, le ÿ les interdit tous ; on va 
s’en servir pour programmer cet accord sur 1 seconde, puis pour l’arrêter ; ajoutez 
59 et 69 : 


Pendant une seconde … 





Vous pouvez, maintenant, programmer « Au clair de la lune » ou des mélodies 
plus « savantes » si vous le désirez. 


4. Sons divers 


Il nous reste à examiner l’ordre SOUND, qui agit comme MUSIC. On doit préci- 
ser : le canal, la période et le volume : 


e Le canal sera, cette fois : 


.— 1, ou 2, ou 3 pour des sons purs 


— 4, 5 ou 6 pour des « bruits ». 
En fait, il n’y a qu’un canal pour les bruits, le canal 4. Aussi 4, 5 et 6 reviennent à 
spécifier quel canal son (1, 2 ou 3) doit être mêlé au canal 4. 


e La période est un terme technique : elle fixe la hauteur du son. Plus sa valeur est 
forte et plus le son est grave. Chaque note de la gamme est déterminée par une 
valeur précise de la période ; avec SOUND, vous pourrez imaginer toutes les notes 
possibles. 


e Enfin, le volume va de 1 à 15, comme avec MUSIC. A zéro, il transmet l’exécu- 
tion à PLAY. 


La syntaxe de SOUND est ainsi : 
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1à6 





SOUND canal, période, volume 


Commençons par expérimenter la période avec ce programme : 


NEW 

19 REM -PERIODE DE SOUND- 
29 INPUT "PERIODE" ;P 

30 SOUND 1,P,10 


49 GOTO 29 





Au RUN, entrez plusieurs valeurs ; vous constaterez que les hauteurs de sons cou- 
rants se situent autour des centaines. Terminez par CTRL/C. 

Pour mettre les divers canaux en service, il faut, à nouveau, passer par PLAY. 
Mais alors là, les combinaisons sont quasi-infinies et nous ne pouvons vous les 
décrire. Voici, par exemple, comment obtenir un coup de feu (sans SHOOT) : 


19 SOUND 5,59 
29 PLAY 7,1,9 


- © 


Chaque nouveau coup de feu vous imposera un RUN. Voici comment « tirer » au 
moment que vous choisirez. 


5. Attendez une touche 


Il existe une méthode servant à attendre la frappe d’une touche pour déclencher des 

opérations. On passe alors par l’ordre GET ; lorsque le Basic rencontre GET, il 
GET stoppe toute exécution et attend la frappe d’une touche. Vous pouvez sélectionner 
une touche particulière, ou aucune en particulier, et dans ce cas, toutes seront pri- 
ses en compte. Dès que vous en frappez une, le Basic poursuivra alors son pro- 
gramme. Voici ce que cela donnerait avec notre coup de feu : 







On n'a défini aucune 
touche en particulier. 
Dès /a frappe d'une d'elles, 









le programme se poursuit = Le - - COMMANDE DE FEU-- 
19 SOUND 5,509, 
20 PLAY 7 
30 GOTO 






La valeur correspondant 
à la touche frappée 
s’appellera T$ 






Après GET, on donne généralement un nom de chaîne à la touche frappée. Vous 
pourriez, ensuite, vérifier par programme que T$ correspond à telle touche que 
vous avez sélectionnée pour le tir, par exemple la touche ? (et pourquoi pas). 
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Dès le RUN, le programme attend ici la frappe d’une touche. Dès qu’elle se pro- 
duit, le coup de feu part. Hélas : le bruit propre des touches, qui sont sonorisées, 
perturbe notre coup de feu. Il faudrait supprimer cette sonorisation avec un 
CTRL/F avant le RUN, comme on l’a vu (on la rétablira avec CTRL/F aussi). 
Mais essayez donc, maintenant, de stopper ce programme : toutes les touches qu 
combinaisons de touches, y compris CTRL/C, déclenchent un coup de feu ! Avez- 
vous une idée sur la façon de vous en sortir ? Oui, c’est cela : retournez l’Oric et 
appuyez sur le RESET. Vous pouvez alors faire CTRL/F, puis RUN, à nouveau. 
Constatez qu’en maintenant n’importe quelle touche enfoncée, vous simulerez une 
mitrailleuse. 

A partir de cela, vous pourriez imaginer le programme suivant : vous passez en 
mode graphique et vous déplacez un mobile coloré sur l’écran. Il n’est vulnérable 
que sur certaines positions que vous déterminez. Si vous tirez à ce moment, vous le 
désintégrez ! Et si ce projet ne vous convient pas, rien ne vous interdit d’en conce- 
voir d’autres ! 

Toujours est-il que vous en connaissez maintenant assez pour passer aux program- 
mes que nous vous proposons à la fin de chaque chapitre, et à ceux qui sont regrou- 
pés dans le chapitre 9. Vous pourrez alors broder sur ces programmes et innover en 
écrivant les vôtres. 


Pour la musique trois instructions c’est peu et c’est beaucoup à la fois ! SOUND, 
MUSIC et PLAY ont en effet bien des possibilités, maïs il faut du temps et de la 
patience pour les découvrir. Si on veut comparer l’effet produit par SOUND 1, 2, 3 
par exemple, il faut taper une bonne vingtaine de touches, de quoi perdre le fil !. 
Pour évaluer les richesses de SOUND, voici un programme qui ne vous demandera 
que ce que vous voulez changer à chaque nouvel essai. Nous ferons la même chose 
pour MUSIC et PLAY pour qu’il n’y ait pas de jaloux ! 


QUESTIONS SUR LE CHAPITRE VIII 


Il est évidemment peu intéressant de répondre à des questions sur les sons sans 
manipuler. Voici cependant ce que vous devez conserver à l'esprit : 


SOUND et MUSIC peuvent-il provoquer l'émission de sons, sans recours à 
PLAY ? 

CO Oui 

O Non 


MUSIC sert à créer : 
O Des sons de timbre absolument quelconque 
[ Uniquement les notes de gammes musicales 


Quel ordre provoque la mise en service de plusieurs canaux simultanément ? 


0 MUSIC 
O PLAY 


Pour créer des bruits divers, on utilisera : 
CO SOUND 
CO MUSIC 


L'ordre GET : 
O1 Sert à lire le clavier, sans arrêter le programme, à la volée 
CO Stoppe le programme et attend qu'une touche soit frappée. 





Réponses page 194 
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SOUND : DÉCOUVREZ LES SONS 


SOUND GET 





SOUND a besoin de trois paramètres pour produire un son : le numéro 
du canal, la période et le volume. Au démarrage du programme qui suit c’est 
le canal 1 qui produira un son musical de période 1000 avec le volume 3. 
Ensuite vous changerez à volonté un de ces trois paramètres en conservant 
les deux autres. Pour chaque son produit le programme affichera l’instruc- 
tion SOUND complète, comme si vous l’aviez tapé au clavier. Notez les com- 
binaisons qui vous plaisent, vous les placerez dans vos programmes... Un 
son durera jusqu’à ce qu’on modifie un paramètre. Pour terminer taper CTRL 


C: 
C=1 :P=1000 :U=3 REMARQUES 
REPEAT e 10 — les paramètres de départ 
CLS 20 à 100 répéter jusqu'à ce qu'on tape CTRL C 
SOUND C;,P,U 30 — le ménage sur l'écran 
PRINT'SOUND "3:05", "3P5 "M 3U 
GET T$ 40 — le son 
IF T$="C" THEN INPLUT'CANAL ! À 6" $C 50 — l'image 


60 — attente d’une frappe de touche 


80 IF T$="P" THEN INPUT"PERIODE O À 32 


70 à 90 — les trois choix possibles 
267" ;P 

9Q IF T$="U" THEN INPUT"UOLUME @ À 15" 

sU 

1QA8@ LINTIL T$=CHR$C3) 





Au départ, vous obtenez : 


SOUND 1 ,1900 ,3 


Pour changer le canal, tapez C puis le numéro. 
Pour la période c’est P et le volume V : 


SOUND 1 ,208 ,6 


Essayez plusieurs canaux, et vous remarquerez qu’il n’y a guère que le 
1 qui donne quelque chose, pour l'instant. Que se passe-t-il si on multiplie 
ou si on divise la période par 2 ? 


Testez votre oreille : diminuez la période en gardant le volume 3. 

Si vous arrivez à une période de 5, c’est très bien, entre 6 et 8 ça va ; 
au-dessus, c’est peut-être le haut-parleur qui faiblit ! Pourquoi ne pas rac- 
corder l’Oric à votre chaîne hi-fi ou un appareil de ce genre ?.. 
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MUSIC : MUSIQUE 


MUSIC GET 





MUSIC a besoin de 4 paramètres : numéro de canal, octave, note et 
volume. 

Adoptons le même principe que pour le programme 27 : un choix entre 
4 frappes de touches pour préciser le paramètre qu’on veut changer, C, O, 
N ou V. Puis on tape la valeur de ce paramètre (suivie de return) et le son 
retentit accompagné du texte de l’instruction MUSIC qu’il aurait fallu taper. 


18 C=1:0=2:N=] :0=3 

20 REPEAT 

38 CLS 

49 MUSIC C,O,N,U 

5@ PRINT'MUSIC "3C;","303","3N5","3U REMARQUES 

69 GET T$ 10 — les paramètres de départ 


7? =" LL " He 
Q: IF: TS C THEN INPUT'CANAL 1 À 6"3C 20 à 110 — répéter jusqu’à ce qu’on tape CTRL C 


80 IF T$="0" THEN INPUT"OCTAUE Q À 7"; LE 
(s] 50 — l’image 
30 IF .FS= "NT  THEN--INPUTFNOTE 1 À 12" 5N 60 — attente d’une frappe de touche 


70 à 100 — étude des 4 cas 
100 IF T$="U" THEN INPUT'"UOLUME @ À 15 


EU 
) 
110 UNTIL T$=CHR$(3) 





Pour commencer : 


Ce qu'on obtient MUSIC 1, 2, 1, 3 
après RUN 


Montez la gamme : fixez l’octave et passez en revue les notes 1 à 12, 
puis recommencez pour l’octave au-dessus. 





AUS EC) 459 41 559 







En tapant, par exemple, 
la lettre O, puis 3 suivi 
de RETURN : 





Ici encore, seul le canal 1 fonctionne. 






Nous découvrirons les autres grâce au concours de l’instruction PLAY. 
Mais pourriez-vous couvrir 8 octaves comme le fait déjà MUSIC ? 
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SOUND MUSIC PLAY : 


POUR MELANGER LES SONS 
SOUND MUSIC PLAY 





Sans l’instruction PLAY, SOUND et MUSIC ne délivrent qu’un seul son. 

Pour apprécier les nombreuses possibilités de l’ensemble PLAY, 
SOUND, MUSIC, nous vous proposons un programme dans la lignée des 
deux précédents, mais beaucoup plus long, car le domaine est vaste ! 

Pour chacune des trois instructions, vous pourrez choisir de modifier 
un des paramètres. Afin d’y voir plus clair, on affichera dans la moitié infé- 
rieure de l’écran (rouge), l’instruction SOUND ou MUSIC la plus récente 
concernant chacun des 6 canaux, et on mettra à jour le texte de l’instruction 


PLAY. 


Le haut de l’écran (vert) servira de journal de bord relatant les diverses 


directives que vous donnerez. 


18 PLAY 0,0,0,0 More 
20 POKE 623,27 
30 PAPER 1:CLS 10 — arrêtez la musique ! 
4@ DOKE 636, 14*30 20 — plein écran 
52 POKE 638,14 30 — fond rouge, partout 
se Pt 0 ) ce 6) 40 — écran réduit : les 14 lignes du haut 
M 6 6),N U 
8Q B$=" Ju vus 50 — fond vert pour le haut 
9Q FOR C=]1 TO 6 70 — réservation pour les paramètres période, 
180 NtC)=] octave, note, volume 
118 NEXT C 80 — pour blanchir plus tard : 23 espaces 
120 : 90 à 110 — initialisation des notes à 1 pour les six 
13Q REPEAT Ft 
148 PRINT:PRINT'"'S:SOUND, M:MUSIC, P:PLAY ee 190 — répétition jusqu’à ce qu’on tape F pour 
arrêter 
F:FIN?" 
1 SQ GET T$ 140 — le premier choix 
160 IF T$="S"\ THEN GOSUR 1@00:T$="" 150 — attente d’une frappe de touche 
170 IF T$="M" THEN GOSUB 20908:T$="" 160 — SOUND 
180 IF T$="P"' THEN GOSUB 3909:T$="" 170 — MUSIC 


198 


UNTIL T$="F" 





180 — PLAY 
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1000 PRINT'"SOUND" 
191@ PRINT"'C:CANAL, P:PERIODE, U:UOLUME? 
1028 GET T$ 
1030 IF T$="C" THEN INPUT"'CANAL 1 À 6";C 
:GOTO 1010 
1040 IF T$="P" THEN INPUT'"'PERIODE 8 À 32 
267"3PCC3 
1050 IF T$="U" THEN INPUT"UOLUME @ À 15" 
sUCC) 
1060 PLOT 1,13+2XC,B$ 
1078 A$="SOUND "+STR$(C)+", "+STRSCPCC))+ 
"3 "HSTR$SCUCC)) 
1298 SOUND C;,PCCJ,UCC) 
1100 RETURN 
13930 
200@ PRINT"'MUSIC" 
2018 PRINT"'C:CANAL, O:’OCTAUE, N:NOTE, U: 
UOLUME ?" 
202@ GET T$ 
2030 IF T$="C" THEN INPUT"CANAL 1 À 3";C 
:GOTO 2810 
2040 IF T$="O" THEN INPUT"'OCTAUE @ À 7"; 
OCC) 
2050 IF T$="N" THEN INPUT"NOTE 1 À 12'"3;N 
CC) 
2068 IF T$="U" THEN INPUT'"'UOLUME @ À 15" 
sUCC) 
2078 PLOT 1,13+2XC,B$ 
2088 A$="MUSIC "+STR$CC)+", "+STRSCOCC) 
+", "+STR$SCNCC))+", "+STR$SCUCC)) 
2098 PLOT 1,13+2XC,AS$ 
2190 MUSIC C,OCC),NCC),UCC) 
211G RETURN 
29390 
3088 PRINT"PLAY" 
301@ PRINT'N:CANAL NOTE, B:CANAL BRUIT 
s F:FORME, D:DUREE?" 
3020 GET T$ 
3039 IF T$='"N" THEN INPUT'"'CANAL NOTE 0 
A 7";CN:GOTO 3010 
304Q IF T$="B" THEN INPUT"CANAL BRUIT 
Q À 7";CB:GOTO 3810 
305Q IF T$="F" THEN INPUT"FORME 1 À 7" 
5F 
3060 IF T$="D" THEN INPUT"'DUREE @ À 32 
267" ;D 


REMARQUES 


1000 à 1100 — sous-programme d’utilisation de 
l'instruction SOUND 


1010 — sous-choix 

1020 — attente d’une frappe de touche 

1030 — choix du canal 

1040 — choix de la période 

1050 — choix du volume 

1060 — effaçage de l’ancienne instruction SOUND 
1070 — texte de la nouvelle 

1080 — affichage 


1090 — le son 


REMARQUES 


2000 à 2110 — sous-programme d'utilisation de 
l'instruction MUSIC 


2010 — sous-choix 

2020 — attente d’une frappe de touche 

2030 — choix du canal 

2040 — choix de l’octave 

2050 — choix de la note 

2060 — choix du volume 

2070 — effaçage de l’ancienne instruction MUSIC 
2080 — texte de la nouvelle 

2090 — affichage 


2100 — le son 


REMARQUES 


3000 à 3210 — sous-programme d'utilisation de 
l'instruction PLAY 


3010 — sous-choix 

3020 — attente d’une frappe de touche 

3030 — choix du ou des canaux de sons purs 
3040 — idem pour les canaux bruits 

3050 — forme 

3060 — durée 
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REMARQUES 
FOR I=1 TO 3 
= EN A 3110 à 3160 — boucle de marquage de: - 
NC=CN AND 2 (I 1) réa f Fee DEAN e S Canaux con 
BC=CB AND 2*CI-1) SGEN ; ; 
IF NC THEN PLOT @,13+2#I,"X" ELSE “res vaut 1 pour un canal son concernés par 
D,13+2XI," Li 
IF BC THEN PLOT @,19+2X%I,'"x'"" ELSE 
- ot 3140 — érage par une étoile si le canal son n° 1 
0,13+2X1,; est ER pd 
NEXT I 
PLOT 15,20,B$ 
A$=UPLAY MESTRE(CNI+", "4STRS(CB)+ 3170 — effaçage de l’ancienne instruction PLAY 
MyMAESTRECF)+"S MESTRE(D) 3180 — texte de la nouvelle 
3190 PLOT 15,20,A$ 3190 — affichage 
3200 PLAY CN,CB,F,D 
3218 RETURN 


3130 — idem pour un canal bruit 


3150 — idem pour le canal bruit n° 1+3 


3200 — exécution 





Et maintenant vous allez être récompensé de votre effort, puisque vous 
pourrez essayer confortablement toutes les combinaisons qui vous passent 
par la tête, à condition qu’elles soient possibles. Pour ne pas allonger le pro- 
gramme, nous n’avons pris aucune sécurité : si vous demandez l’impossi- 
ble, vous obtiendrez un message d’erreur et le programme s’interrompra. 
Ce n’est pas grave, tapez GOTO 130, et tout repartira comme avant ! 


Exemple : 

Tapez RUN puis 

S C 1 Return P 300 Return 

S:SOUND, M:MUSIC, P:PLAY, F:FIN? 
SOUND 

C:CANAL, P:PERIODE, U:UOLUME? 
CANAL 1 A 6? 1! 


C:CANAL, P:PERIODE, U:UOLUME? 
PERIODE @ À 327677 300 


S'SOUND, M:MUSIC, P:PLAT, F3FIN? 


SOUND 1,300, 





Il manque le volume et le lancement par PLAY ; tapez S V 3 Return 
(on ne reprécise pas le canal, puisque c’est le même) puis P, vous devez avoir 
ceci sur l’écran : 


UOLUME @ À 15? 3 


S':SOUND, M:MUSIC, P:PLAY, F':FIN? 
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On a tapé P PLAY 
N:CANAL NOTE, B:CANAL BRUIT, F':FORME, 
D :DUREE? 
On a tapé N CANAL NOTE @ A 7? 1 
puis 1 Return 
On a tapé Return 
tout seul 








N:CANAL NOTE, B:CANAL BRUIT, F :FORME, 
D :DUREE® 






S:SOUND, M:MUSIC, P:PLAY, F:FIN? 


SOUND 1;,300,3 





PLAY 1,0,0,0 


Voici le résultat du mélange des 3 canaux de son pur avec du bruit sur 
le canal 3, en travaillant sur ce canal avec la forme répétitive 3 et une durée 


de 500 ; 


S:SOUND, M:MUSIC, P:PLAY, F:FIN? 
PLAY 

N':CANAL NOTE, B:CANAL BRUIT, F:FORME, 
D :QDUREE? 

DUREE @ À 32767? 500 


S:SOUND, M:MUSIC, P:PLAY, F:FIN? 


MUSIC 1,4,1,5 
*MUSIC 2,4,5,5 


XMUSIC 3,4,8,0 
PLAY 7,4,3,500 


XSOUND 6,100,0 


Mais surtout, ne vous arrêtez pas là : tâtonnez. 
Quand c’est bon notez la recette, et lorsque c’est franchement mauvais 


tapez F puis RUN pour obtenir le silence ! 
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30 


EN RYTHME 








Un bruit bien cadencé peut marquer le rythme. Mélangez avec une note 
bien choisie et vous obtenez de la musique ! 

Le choix du rythme se fera en tapant un chiffre entre 1 et 7, quant aux 
notes on les trouvera sur la deuxième rangée de touches à partir du haut. 
Si vous les comptez, de Q à ], vous trouverez 12, c’est-à-dire exactement le 
nombre de demi-tons d’une octave. Le choix de celle-ci vous est laissé au 
début. 


1Q CLS;PRINT"'EN RYTHME 9" 

20 DATA Q,U,E,R,T,;Y,U,1,0,P,0C;,1] 
30 DIM NC93) 

4Q FOR C=65 TO 93 


5@ N(C)=I REMARQUES 
6@ NEXT C 20 — les 12 touches produisant une note 
7@ FORI=I TO 12 30 — N fichier des notes 
80 READ C$ 40 à 60 — on met 1 pour chaque note, a priori. 
98 NCASCCCHDD=I 
70 à 100 — … et on change les 12 prévues 


100 NEXT I 
105 : 
11@ PRINT:PRINT'TEMPO : 1 À 2" 130 — choix de l’octave 
12@ PRINT:PRINT'NOTE Q A ]" 140 — préparation du bruit 
130 INPUT'"QUELLE OCTAVE (@G A 2)";0 ; RU den ; 

150 à 190 — répétition jusqu’à ce qu’on tape 
148 SOUND 5,100,0 CTRL C 
145 : 
15 REPEAT a | 
16@ T$=KEYS . 0 des le canal 1, la durée 
178 IF T$>"0" AND T$<"8" THEN PLAT 1,2 180 — choix d’une note : une des 12 prévues, ou 
» 3: IBBXCUALCTS)+2) bien 1 
180 IF T$>="A" AND T$<="]" THEN MUSIC 
1,0, NCASCCT$)),8 
138 UNTIL T$=CHR$(3) 


110, 120 — affichage des possibilités 


160 — lecture du clavier au vol 





Exemple : 


Choisissez un rythme de 1 (rapide) à 7 (lent) puis pianotez en utilisant 
les touches Q, W, ..… P,[et ]. 


EN RYTHME © 


TEMPO : 1 A 27 


NOTE Q A 1] 
QUELLE OCTAUE (@ À 7)? 4 





Ne vous gênez pas pour changer le volume dans l’instruction MUSIC 
(ligne 180) ou la période de SOUND (ligne 140) ! 
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MUSIQUE AU HASARD 


MUSIC 





DATA 2,3,10 

DATA 2,2,10 

DATA 2,1,20 

L=30 

CLS 

PLOT 1,26, "MOUVE 
*=1 


FOR M=1 TO 3 
PLOT 18,26,STR$ 
READ PLAGE, DECA 
FOR K=1 TO L/Dn 
O=INTCRNDC1)XPL 
FOR I=1 TO 5 
D=RNDC1)%xDM+1 
N=INTCRND(1)%12 
H=27-(0-1)X6-N/ 
PLOT X,H,"0" 
MUSIC 1,0,N,8 
WAIT D 
X=Xt1 
NEXT I 
NEXT K 
WAIT S@ 

NEXT M 


PLAY 0,0,0,0 





Reposons-nous un instant en laissant le hasard créer une musiquette en 
trois mouvements : léger et aigu, moins aigu, puis plus posé et plus grave. 
Pour obtenir ce résultat, il faudra bien sûr forcer un peu la main au hasard ! 
Pour voir les différents mouvements, les notes seront affichées sur l’écran 
à la bonne hauteur. 

On laissera le choix entre deux octaves, en fixant la plus basse. La durée 
de chaque note sera la même pour les deux premiers mouvements, et le dou- 
ble pour le troisième. 


REMARQUES 
10 à 30 — un guide pour le hasard 
40 — réglage de la longueur de chaque mouvement 


MENT NUMERO ‘ 70 — position horizontale des notes : 4 pour la 
première 


90 à 250 — boucle sur les mouvements 
100 — affichage du numéro du mouvement 


CM) 110 — lecture des valeur guides : plage et décalage 
L, DM pour l’octave, durée maximum d’une note 


120 à 230 — boucle pour ajuster la longueur d’un 
AGE )+DECAL mouvement 


130 — choix de l’octave pour cinq notes successives 


140 à 220 — boucle sur cinq notes 
+1 
2 


150 — durée d’une note 

160 — valeur de la note 

170 — sa position verticale sur l’écran 

180 — on la ’’note”” 

190 — on la joue 

200 — on la maintient 

210 — position horizontale de la prochaine note 
240 — séparation entre deux mouvements 


270 — fin : silence ! 


Exemple : 


Avec les trois instructions DATA données dans le texte du programme, 
voici ce que nous avons obtenu. La ’’photo”” prise avant la fin signale que 
le dernier mouvement était le troisième, et on a droit à un magnifique Ready 
en haut de l’écran puisque le programme n’utilise pas d’instruction PRINT. 
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MOUVEMENT NUMERO 3 





Modifiez les valeurs des DATA, en retouchant éventuellement à la ligne 
170 si les notes ne tiennent plus sur l’écran. 
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————_—_—_—_—_——_—_—_— 


REPONSES AUX QUESTIONS SUR LE CHAPITRE VIII 
1. Oui, à la condition que leur dernier paramètre, le volume, ne soit pas nul. 
2. MUSIC sert à créer des notes musicales, et ce, sur plusieurs gammes. 


3. C’est PLAY qui sert à mettrg en service plusieurs canaux simultanément, et non 
MUSIC. 


4. Pour créer des bruits, il faut utiliser SOUND.. 
5. GET stoppe le programme et attend qu’une touche soit frappée. Ne confondez 


pas GET avec KEY$ qui, lui, fait lire le clavier au passage, sans arrêter le pro- 
gramme. 


CHAPITRE IX 


POUR REVISER 
CINQ PROGRAMMES UTILES 
OU DIVERTISSANTS 


A la fin des chapitres 4 à 8, vous avez trouvé plusieurs exemples de pro- 
grammes qui mettaient en pratique les nouveautés dévoilées dans le chapi- 
tre, sans faire appel aux notions traitées par la suite. 

C'est maintenant qu'il faut regrouper tout ce que vous savez en pre- 
nant comme support cinq programmes dans lesquels vous devriez retrouver 
des têtes connues ! Chaque fois, après avoir fixé l’objectif, et pour vous aider 
à concevoir par la suite vos propres programmes, nous analyserons le tra- 
vail en dégageant les grandes lignes. Et, comme précédemment, le texte du 
programme sera accompagné de remarques, et nous vous donnerons des exem- 
ples d'utilisation ! 
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MISE EN FORME : 


COMMENT AFFICHER PROPREMENT UN NOMBRE 





Vous vous êtes peut-être posé cette question : y a-t-il un moyen pour 
afficher un nombre représentant une somme d’argent en francs et centimes, 
au lieu d’avoir quatre ou cinq chiffres après la virgule comme ça peut arri- 
ver. On souhaite alors écrire (sur l’écran) selon un format imposé. 


Dans certains dialectes du Basic, ou dans d’autres langages, on peut trou- 
ver une instruction qui satisfait à ce besoin légitime. Mais le Basic de l’Oric 
ne connaît pas cette instruction, et il n’est pas le seul ! 


Il faut donc faire le travail, et on distingue deux méthodes : celle du 
tout numérique et celle du traitement de texte. La première méthode con- 
siste à arrondir la valeur en imposant le nombre de décimales : pour garder 
les 2 premiers chiffres après la virgule ; ce qui doit donner 3.52 dans 3,523 
on peut écrire 


INT(3.523+100)/100 


Mais au moment de diviser pour retrouver le bon ordre de grandeur, 
on a parfois des surprises : pour écrire 1 avec 5 décimales, 
INT(1x10A5)/10AS5 donne 0.999999999 à cause de l’erreur sur 10A5 ! Et 
même lorsque ça se passe bien, on ne maîtrise pas la place qu’occupe le résul- 
tat : elle dépend du nombre de chiffres à gauche de la virgule. 
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L'autre méthode est plus sûre et plus complète : elle consiste à se servir 
des fonctions de traitements de texte du Basic (LEFT$, MID$, RIGHT$, 
LEN). Elle est aussi plus lourde. 

Pour étudier les caractères qui composent un nombre, il faut transfor- 
mer celui-ci en chaîne de caractères avec la fonction STR$. Après avoir trouvé 
la place du point décimal, on peut maîtriser entièrement l’affichage des valeurs 
numériques) : nombre de décimales et nombre de caractères maximum utili- 
sés pour représenter les valeurs, y compris les espaces éventuels. Le programme 
qui suit est constitué schématiquement de deux parties : 


— mise en forme (lignes 9000 à 9210) 
— utilisation de cette mise en forme à titre d’essai (lignes 10 à 140). 


Il existe au moins deux cas pour lesquels ça ne marche pas : pour un 
nombre avec puissance de 10 (E..) et lorsque la dernière décimale conservée 
vaut 9 et que la suivante est supérieure à 4. Nous réglerons ce deuxième incon- 
vénient dans la seconde version du programme. 


19 CLS :PRINT :PRINT"'AJUSTAGE D?UN NOMBRE" 
20 INPUT"'UOTRE NOMBRE ‘";N 

38 GOSUB 30008 REMARQUES 
4@ REPEAT 

50 PRINT:INPUT'NB DE CARACTERES ‘“ ;NC 
60 INPUT'NB DE DECIMALES ‘“;ND 


20 — introduction de la valeur à mettre en forme 


30 — utilisation du sous-programme d’initialisation 


?@ GOSUB 93858 40 à 100 — répétition jusqu’à l'abandon 
80 : 50 à 60 — introduction des caractéristiques de mise 
38 PRINT'RESULTAT ";N$ en forme 

1008 INPUT'"AUTRE MISE EN FORME CO/ND'";RS$ 70 — utilisation du sous-programme de mise en 
119 UNTIL R$="N" Tonus 

120 : 90 — affichage du résultat obtenu 

130 END 100 — question 

140 130 — fin 


893 RENM 

3000 B$=" 

991 Q E$=" 222224422224 nn servant de réservoir de blancs (9 
3028 2$="000200000" 


3030 RETURN 
93040 : 9020 — réservoir de zéros 


9000 à 9030 — sous-programme d’initialisation 


9010 — réservoir d’étoiles 


9050 à 9210 — sous-programme de mise en forme 
N—æNS$ 


9050 — Ia valeur numérique N est convertie en 
IF N>=Q THEN L=L-1:N$=RIGHTS(NS,L) chaîne de caractères sous le nom N$, L : nombre 


de caractères 
FOR C=1 TO L 9060 — nombre positif : on rejette le caractère de 


IF MIDSCNS,C, 13="." THEN R=C:GOTO 9 ais 
9080 à 9100 — boucle de recherche du point 


NEXT C 9090 — R représente la place du point, s’il existe, 
N$=N$+"." comptée à partir de la gauche 





9110 — le point n’existe pas : on l’ajoute à droite 
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93120 L=L+1:R=L 
3130 : 
9140 IF ND=Q THEN N$=LEFTS$CN$,R-1) :GOTO 


3190 

3150 NS$S=N$+2$ 

3160 DES=MIDSCNS, R+ND, 1) 

9170 IF MIDS$SC(N$S,R+ND+1)32="5" THEN DES$=CH 


R$CASCCDES$)+1) 

93180 N$=LEFTSCNS, R+ND-1)+DES$ 

3190 L=LENCNS) 

3200 IF LoNC THEN N$=LEFT$CES$,NC) ELSE N 
$=LEFTS$CBS, NC-L)+NS$ 

9210 RETURN 


Exemples : 






AJUSTAGE D’UN NOMBRE 
VOTRE NOMBRE ? 12.3456 






NB DE CARACTERES ? ? 
NB DE DECIMALES ®? 4 
RESULTAT 12,3456 

AUTRE MISE EN FORME CO/N)? 











NB DE CARACTERES ? 6 
NB DE DECIMALES ? 4 
RESULTAT XXXXXX 

AUTRE MISE EN FORME CO/N)? 








NB DE CARACTERES ? 4 

NB DE DECIMALES ? 1 
RESULTAT 12.3 

AUTRE MISE EN FORME CO/N)? 






NB DE CARACTERES ?. 2 

NB DE DECIMALES ? @ 
RESULTAT 12 

AUTRE MISE EN FORME CO/N)? 












AJUSTAGE D’UN NOMBRE 
UOTRE NOMBRE ? -12,3456 


NB DE CARACTERES ? 
NB DE DECIMALES ? 
RESULTAT -12.35 

AUTRE MISE EN FORME CO/N)? 0 


NB DE CARACTERES ? 5 

NB DE -DECIMALES: 7-2 
RESULTAT XXXXX 

AUTRE MISE EN FORME CO/N)?7 0 


NB DE CARACTERES ? ? 
NB DE DECIMALES ? 2 
RESULTAT 
AUTRE MISE EN FORME (CO/N)? N 


12.35 


REMARQUES 


9120 — il y a donc un caractère de plus et R mar- 
que le dernier 


9140 — on ne souhaite pas de décimales : il ne faut 
conserver que ce qui est à gauche du point 


9150 — on souhaite des décimales : on ajoute neuf 
zéros au bout du nombre pour satisfaire tous les 
besoins légaux (< =9 décimales) 


9160, 9170 — arrondissement de la dernière déci- 
male à conserver, en tenant compte de la suivante : 
si celle-ci est supérieure ou égale à 5, on ajoute 1 
à la dernière décimale conservée 


9180 — troncature : on ne conserve que ND 
décimales 


9200 — le nombre de caractères nécessaires pour 
afficher la valeur est supérieur au nombre prévu 
(NO) : afficher NC étoiles, sinon, on complète à 
gauche par des espaces, si c’est nécessaire, afin de 
former une chaîne de NC caractères 






























6 
2 











198 PRATIQUE DE L’ORIC-ATMOS ET 36 PROGRAMMES 


TABULATION AVEC CADRAGE A DROITE 


Nous allons illustrer la mise en forme de nombres en regroupant dans 
une même table un nombre, son carré, sa racine carrée et le sinus de ce nom- 
bre (représentant un angle exprimé en radians). La première partie de ce pro- 
gramme (lignes 10 à 150) gère les calculs, la tabulation et fait appel à deux 
sous-programmes (lignes 9000 à 9240) pour la mise en forme de chaque nom- 
bre à afficher. Ce principe s’applique à n’importe quelle tabulation. 

Il faut résoudre aussi le défaut signalé : 1.298 arrondi à 2 décimales 
devient 1.2: puisqu’on ajoute 1 au code du 9, on obtient le code des deux 
points ! Une solution consiste à repasser provisoirement à la valeur numéri- 
que pour faire cet arrondi avant de finir la mise en forme, comme on l’a 
déjà fait. 


CLS :PRINT :PRINT'"TABULATION AVEC CADRA 


A DROITE" 

PRINT" x #2 SAR(X) 
PRINT 

GOSUB 93000 


SINCX)" 


FOR X=1 TO S 

N=X :=NC=4 :ND=1] :GOSUB 3250 

PRINT N$; 

N=X72 :NC=S :ND=2:GOSUB 3058 
PRINT"  "3;N$; 
N=SQRCX)J :NC=6 :ND=4 :GOSUB S305@ 
PRINT" "3;NS$; 
N=SINCX) :NC=6 :ND=4 :GOSUB 93050 
PRINT" "NS 

NEXT x 


ES$S="XXXXXXAANNX 
2$="000000008" 
RE TURN 


N$=STRSCN)D :L=LENCNS) 
IF N>=Q THEN L=L-1:NS$=RIGHTS$SCNS,L) 


FOR C=1 TO L 
IF MID$SCN$,C,1)="." THEN R=C:GOTO 9 


NEXT C 
NS=NS$ +", " 





REMARQUES 
40 — utilisation du sous-programme d’initialisation 


50 à 140 — boucle permettant de faire varier le 
nombre contenu dans X 


60 — préparation des données nécessaires au sous- 
progrmme de mise en forme, et utilisation de celui-ci 
pour X 

70 — affichage du résultat de cette mise en forme 


80 — même travail qu’à la ligne 60, pour le carré 
de X 


90 — affichage du carré de X, mis en forme 
100, 110 — idem pour la racine carrée de X 
120, 130 — idem pour le sinus de X 

150 — fin 


9000 à 9030 — sous-programme d’initialisation 


9000 — chaîne servant de réservoir de blancs 
(9 espaces) 


9010 — réservoir d'étoiles 
9020 — réservoir de zéros 


9050 à 9240 — sous-programme de mise en forme 
de N->NS 


9050 — Ia valeur numérique N est convertie en 
chaîne de caractères sous le nom N$,L: nombre de 
caractères 


9060 — nombre positif : on rejette le caractère de 
gauche 


9080 à 9100 — boucle de recherche du point 


9090 — R représente la place du point, s’il existe, 
comptée à partir de la gauche 


9110 — le point n’existe pas : on l’ajoute à droite 


9120 — il y a donc un caractère de plus et R mar- 
que le dernier 
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REMARQUES 


IF ND=G THEN NS=LEFTSCNS$,R-1) :GOTO 
93190 9140 — on ne souhaite pas de décimales : il ne faut 


9150 N$=N$+2$ 


conserver que ce qui est à gauche du point 


eu 9150 — haite des décimales : t f 
168 IF MIDSCNS,ReND+1)<"5" THEN GOTO 92 | PS9 ensuite uma son eue nt 
1Q besoins légaux (< = neuf décimales) 
3178 N=UALCNS) 9170 à 9200 — arrondissement de la dernière déci- 
93188 NP=ABS(N)+10"(-ND) male à conserver, en tenant one la Nan, 
i celle-ci i ; t 
9190 N$=STRSCSGNCNIKNP ) à D es Re en UT 
3200 IF N>0 THEN N$=MID$CNS, 2) 9210 — troncature : on ne conserve que ND 
9218 N$=LEFTS$SCNS, R+ND) décimales 
39228 L=LENCNS) 9230 — si le nombre de caractères nécessaires pour 
= fficher 1 [ t éri b. é 
9230 IF LONC THEN NSSLEFTECES, NC) ELSE N° | sf helene membre pèn 
S=LEFT$S(BS, NC-L)+N$ gauche par des espaces, si nécessaire, afin de for- 


mer une chaîne de NC caractères 


9240 RETURN 





La table obtenue est agréable à lire, et vous pouvez la remodeler en chan- 
geant les valeurs de NC et ND : 


TABULATION AVEC CADRAGE À DROITE 
À RT2 SGRCX) SINCX) 


1.00 . 0000 .8415 
4,00 .4142 . 3033 
3.00 . 2321 .1411 
16.00 . 0800 . 2568 
25.00 . 2361 + 3583 
36.00 . 4435 . 2234 
43.00 . 6458 . 6578 
64,00 2,.8284 . 3894 
81.00 3.0000 .4121 


1.0 
2.0 
3,0 
4.0 
5,0 
6.0 
7,0 
8.0 
3.0 
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CLASSEMENT ALPHABÉTIQUE 





La mise en mémoire d’un mot se faisant selon une codification norma- 
lisée (baptisée ASCIT), la lettre A a une valeur inférieure à la lettre B, et ainsi 
de suite. Ceci conduit à un classement des codes correspondant à celui des 
lettres. De plus, la comparaison de deux chaînes de caractères, par exemple 
deux mots, est réalisée en Basic caractère par caractère : si le caractère de 
gauche est le même dans les deux chaînes, la comparaison porte sur le sui- 
vant, et ainsi de suite jusqu’à ce qu’une différence soit rencontrée. Si les deux 
chaînes n’ont pas la même longueur, la plus courte est inférieure à la plus 
longue. 

Grâce à tout ceci, le classement de deux mots, ou groupes de mots (l’es- 
pace compte alors), est possible au sens alphabétique : le classement se fera 
dans l’ordre croissant : ABC” est inférieur à ABC”, et ’’ABC”’ est infé- 
rieur à *’ABCD”’. Lorsqu'il y a plus de deux mots à classer, une méthode 
simple à appliquer consiste à chercher d’abord le mot qui doit venir en tête 
dans l’ordre alphabétique : c’est le plus petit lorsqu’on le compare aux autres. 
On l’échange alors dans le fichier de mots avec celui qui se trouvait en tête, 
et on recommence sans tenir compte du premier mot, qui est maintenant bien 
classé. Il suffit de s’arrêter lorsque les deux derniers mots viennent d’être 
échangés (si nécessaire). 


19 CLS:PRINT'CLASSEMENT D'UN FICHIER D 
E MOTS" 


20 
30 
40 
50 
60 
70 
80 


30 


INPUT'NOMBRE DE MOTS " ;NM 


DIN MS$CNN) 

FOR N=1 TO NM 
INPUT"MOT" ; M$ CN) 
NEXT N 


CLS :PRINT"'FICHIER CLASSE" :PRINT 


FOR: T=1 TO NM-1 
N$=M$ CT) :P=T 
FOR N=T+1 TO NM 


REMARQUES 

20 — introduction du nombre de mots 

30 — réservation de mémoire pour le fichier de mots 
40 à 60 — boucle d’introduction des mots 


80 à 160 — boucle permettant de trouver successi- 
vement les mots dans l’ordre croissant 


90 — hypothèse : le Tème mot est plus petit que 
les suivants, P indique la position du plus petit mot 


100 à 120 — boucle de recherche du plus petit mot 
compris entre le Tème et le dernier 


IF MS$SCNJ<N$ THEN N$=MS$CN) :P=N 


NEXT N 
M$CPI=M$CT) 
M$SCT)I=NS$ 
PRINT N$ 
NEXT T 
PRINT MS$CNM) 





110 — si un mot plus petit est trouvé, on le loge 
dans N$ et on change le contenu de P 


130, 140 — échange 
150 — affichage du mot bien classé 


170 — affichage du dernier mot 
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Exemple : 


CLASSEMENT D'UN FICHIER DE MOTS 
NOMBRE DE MOTS ? 10 
MOT? POIRE 

MOT? POMME 

MOT? PAMPLEMOUSSE 
MOT? PECHE 

MOT? PRUNE 

MOT? ABRICOT 

MOT? FRAISE 

MOT? ORANGE 

MOT? KAKI 

MOT? FRAMBOISE 


FICHIER CLASSE 





Si vous préférez les 
fromages, ne vous 
gènez pas ! 






ABRICOT 
FRAISE 
FRAMBOISE 
KAKI 

ORANGE 
PAMPLEMOUSSE 
PECHE 

POIRE 

POMME 

PRUNE 






CLASSEMENT ALPHABÉTIQUE AVEC NOMBRES ASSOCIÉS 


Il est fréquent qu’on associe une ou plusieurs informations à chaque 
mot d’une liste. Lorsqu’on souhaite classer ces mots par ordre alphabéti- 
que, il ne faut pas séparer les informations qui s’y rattachent, et pourtant 
celles-ci ne doivent pas être prises en compte pour le classement. La méthode 
employée ici consiste à utiliser un fichier pour les mots et un fichier pour 
chaque information associée. Tout échange nécessaire dans le fichier de mots 
donnera lieu à un échange identique dans chaque fichier associé. Nous pren- 
drons le cas d’une seule information associée. 
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19 CLS :PRINT"'CLASSEMENT DE DEUX FICHIE 
RS" 


20 INPUT"NOMBRE DE MOTS “ ;NM REMARQUES 
30 DIM MSCNM), NBCNM) 2 — lutreduction de nombre de chaises de 


40 FOR N=1 TO NM 
30 — réservation de mémoire pour le fichier des 
mots et des valeurs numériques 


58 INPUT"MOT" 3M$CN) 

55 INPUT"NOMBRE " 3NBCN) 
68 NEXT N 

28 Ci S:PRINT"RESULTAT DU CLASSEMENT" :P Ts a a ee 
RINT 


40 à 60 — boucle d’introduction des informations 


90 — hypothèse : le Tè test t 
8@ FOR T=1 TO Nn-1 ag here grrr 


30 N&=NeCTJ3PST 100 à 120 — boucle de recherche du plus petit mot 
100 FOR N=T+1 TO NM compris entre le Tème et le dernier 

110 IF MSCNJ<N$ THEN N$=MS$CN)J :P=N 110 — si un mot plus petit est trouvé, on le loge 
12@ NEXT N dans NS et on change le contenu de P 

130 MSC(P)=MSCT) 130, 140 — échange de mots 

149 MECTIENS | 145 — échange correspondant pour les valeurs 
145 NA=NBCT) :NBCT)=NB(P)J :NB(P)=NA numériques 

150 PRINT NBCT),MS$CT) 150 — affichage du mot et du nombre classés 
168 NEXT T 


178 PRINT NBCNM) ; M$ CNT) Re eue. 





Exemple : 


Chaque mot du langage possède un code compris entre 128 et 255. On 
en trouve parfois la liste classée dans l’ordre croisant des codes, mais il serait 
souvent plus intéressant de l’avoir par ordre alphabétique : 






CLASSEMENT DE DEUX FICHIERS 
NOMBRE DE MOTS ? 10 

MOT? END 

NOMBRE? 128 

MOT? EDIT 

NOMBRE? 123 

MOT? INUERSE 

NONBRET. SO | A ES TT 
MOT? NORMAL RESULTAT DU CLASSEMENT 
NOMBRE? 131 
MOT? TRON 



























123 EDIT 






















NOMBRE? 132 128 END 
130 INUERSE 
D UPS NOUS SEE res 13? LORES 
131 NORMAL 
135 PLOT 
Ce n'est qu'un extrait 134 POP 
de la liste des mots et 136 PULL 








fonctions du langage 133 TROFF 


132 TRON 
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COURSE DE HAIES 





Pour entretenir les réflexes, rien de tel qu’une course de haies dans un 
fauteuil : en appuyant sur une touche du clavier au bon moment, le coureur 
sautera par dessus la haie. Mais si vous appuyez trop tôt ou trop tard, il 
renversera la haie. Le parcours comporte 12 haies réparties sur quatre lignes 
droites. 


Ces haies seront représentées par la lettre I en position debout, et par 
le signe — lorsqu’elles ont été renversées. On définira deux nouveaux motifs 
pour simuler un coureur qui saute de temps en temps par dessous une haie, 
et qui court le reste du temps. Ces deux motifs prendront la place des cro- 
chets [ et ]. 


La frappe d’une touche suffit pour faire sauter le coureur, à condition 
de s’y prendre au bon moment, juste avant la haie. Si on tape trop tôt la 
tentative de saut est un échec, et le coureur n’aura pas le temps de récupérer 
avant la haïe : il va la renverser ! 


CLS :PAPER G:INK 7 
REPEAT 
INPUT"'UITESSE (1 À 28)";U 


REMARQUES 

UNTIL U>G AND UKi1 7 

CLS:LORES @ 20 à 40 — introduction de la vitesse du coureur avec 
vérification 


D=11-U 


NH=Q :N=Q :T=0 
H$="I " 70 — NH : nombre de haies, N : nombre de fou- 
. lées depuis la dernière haie, T : indicateur de 


60 — D : délai réglant la vitesse 


® tentative 
PLOT 1;:11;"@ HAIE RENVERSEE" Mi is 
PLOT 23,11, '"UITESSE"+STRS$SÇCU) 
GOSUB 370 

PLOTO, 2, "DEPART" 
PLOT24, 10, "ARRIVEE" 

FOR L=3 TO 3 STEP 2 

PLOT 12-L,L,H$+H$+H$ 

NEXT L 

WAIT 200 


90, 100 — tableau d'affichage 


110 — utilisation du sous-programme de définition 
des deux motifs ’’coureur’’ 


120 à 160 — dessin du parcours 
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FOR L=3 TO 9 STEP 2 
FOR C=@ TO 31 STEP 2 
PLOT C,L,"1" 
WAIT D 
PLOT CL," * 
K=@ :N=N+2 
T$=KEYS$ 
IF T= AND N-10 AND T$QO'"" THEN L= 
:K=1 
IF CN<18) AND CT$<>"'") THEN T=1 
WAIT D 
PLOT C+i:k: "CT" 
IF N=1@ THEN GOSUB 460 
310 IF CK=@) AND CN<>@) THEN WAIT D:PL 
OT C+l,L," " 
320 IF K=1 THEN WAIT D'PLOT C+l,L," ": 
L=L+1 
330 NEXT C 
34Q@ NEXT L 
350 END 


DATA 8,28,8,29,42,24, 20,34 
DATA 8,28,8,29,42,40,20,2 
FOR CO=91 TO 33 STEP 2 

FOR 1=0 TO ? 

READ À 

POKE 46980+CO0x8+I,A 

NEXT I 

NEXT CO 

RE TURN 


IF K=1 THEN RETURN 

PING 

NH=NH+ 1 

PLOT- CHE" 

PLOT g,11;, STR$CNH) 

IF NH=2 THEN PLOT 8,11,"S RENVERSE 


RE TURN 





REMARQUES 
180 — le signal du départ 


190 à 340 — boucle de parcours des 4 lignes droi- 
tes (positions sur l’écran : 3, 5, 7, 9) 


200 à 330 — boucle de parcours d’une ligne droite 
210 — le coureur est dans une position 


220, 230 — pause réglant la vitesse : effacement du 
coureur 


240 — K indique que le coureur vient de sauter : 
0= non, 1=oui 


250 — frappe de touche ? 

260 — le coureur atteint une haie et on n’a pas 
appuyé sur une touche trop tôt : si on appuie main- 
tenant, le saut va avoir lieu 

270 — on désarme T que l’on réamorce aussitôt en 
cas de frappe de touche avant d’avoir atteint une 
haie 

280 — pause 

290 — autre position 


300, 310 — si le coureur ne vient pas de sauter et 
ne se trouve pas sur une haie, on l’efface 


320 — si le courant vient de sauter, il faut l’effa- 
cer et le faire redescendre ! 


370 à 450 — sous-programme de définition des 2 
motifs ”’coureur’’ 


370, 380 — description des motifs 


390 à 440 — boucles de lecture de cette description, 
touches [ et ] 


460 à 530 — sous-programme de renversement 
d’une haie 


460 — remise à zéro du nombre de foulées depuis 
la dernière haie et de l’indicateur de tentative 


470 — si le coureur passe au-dessus, on ne touche 
pas la haie 


480 — la cloche 

490 — on ajoute 1 au nombre de haies renversées 
500 — renversement 

510 — affichage du score 


520 — à partir de la deuxième haie renversée, il faut 
le pluriel 


Faites un essai avec la vitesse 1 pour commencer. Ce n’est pas si simple : 
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DEPART 


Avant le départ. 


Q HAIE RENUERSEE 


Le coureur s’élance. 


DEPART 


La première haie est franchie. 
Q HAIE RENVERSEE 


DEPART 


Le coureur s’est déconcentré et 
a renversé 4 haies ; il approche de la 
sixième. 


Q HAIE RENUERSEE 


DEPART 


4  HAIES RENUERSEES 





I 
ARRIUVEE 
UITESSE] 


I 
ARRIUEE 
UITESSE] 


I 
ARRIUEE 
VITESSE! 


I 
ARRIUEE 
UITESSEI! 
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DEPART 


C’est l’arrivée : il n’y a pas eu 
d’autres chutes. 


ARRIVEE 
4  HAIES RENUERSEES UITESSE] 
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L’ARDOISE MAGIQUE 





L’Oric a un graphisme suffisamment fin pour inciter à l’utiliser comme 
ardoise. Au déplacement classique dans les quatre sens, nous ajouterons le 
tracé de segment et la possibilité de lever le ’’crayon”’. 


HIRES 
A=1:X=120:Y-100 
PRINT'"ARDOISE MAGIQUE" 


REPEAT 


REPEAT 
CURSET X,Y,2:WAIT 1:CURSET X,7Y,2 


T$=KEYS 
UNTIL:T#<r 0" 


C=ASCCT$) 
IF T$="E" THEN ÀA=0 
IF T$="A" THEN A=1 
K=X+(C=8)-CC=9) 
Y=Y-(C=10)+(C=11) 
IF X<2 THEN Xx=8 

IF X»>239 THEN XxX=239 
IF Y<Q THEN Y=0 

IF Y>199 THEN Y=199 
CURSET X%X,Y,A 

UNTIL C=3 


On peut aussi 


remplacer ces 2 lignes 
par 90 GET T$ 





Mode d’emploi : 





REMARQUES 


20 — crayon baissé, position horizontale et verti- 
cale du crayon 


50 à 220 — répétition jusqu’à ce qu’on tape 
CTRL-C 


70 à 100 — attente d’une frappe de touche 

80 — la pointe du crayon clignote 

90 — T$ contient la dernière frappe de touche 
100 — pas de touche frappée : on en attend une 
120 — C$ : code de la touche frappée 

130 — on efface 

140 — on trace 


150, 160 — selon la touche enfoncée, on prépare 
le déplacement du crayon en 


170 à 200 — rejet des positions horizontales et ver- 
ticales situées hors de l’écran 


210 — marquage ou effaçage du point 


220 — à suivre ! 


Après avoir tapé. RUN, un point blanc apparaît au centre de l’écran ; 
le crayon est prêt à tracer si l’on appuie sur l’une des flèches. 
Pour lever le crayon, taper E, et pour l’abaisser, taper A. 


Le programme n’a pas de fin naturelle ; il suffit de taper CTRL C pour 
en avoir raison. Si vous êtes satisfait de votre œuvre, n’oubliez pas que vous 
pouvez la conserver sur cassette et lui donner un nom grâce à : 


CSAVE IMAGE”, A40960, 48000 pour enregistrer à vitesse élevée, 


ou CSAVE IMAGE”, A40960, 48000, S pour la petite vitesse. 
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Comment améliorer cette ardoise 


Avec la version que nous venons de donner, il est difficile de tracer des 
obliques, et lorsqu’on se déplace sans tracer, c’est toute une gymnastique 
de ne pas effacer ce qui existe déjà. 

Nous allons offrir quatre possibilités supplémentaires : 


— garder les points allumés 

— se déplacer rapidement 

— mettre en mémoire la position d’un point 
— relier ce point au point actuel. 


Vous pouvez même changer de couleur en cours de route. Devant tou- 
tes ces possibilités, vous saurez où vous en êtes grâce à un tableau de bord. 


10 HIRES:INK ? 
20 A=1:U=1:X=120:Y-100:xM=-120 :YM=100 
30 PRINT"'ARDOISE MAGIQUE" :PRINT"'POINTS À 


LLUMES, 


40 
50 
60 
20 
80 
90 
108 
110 
129 
130 
140 
150 
160 
170 


REPEAT 


REPEAT 


UITESSE LENTE" REMARQUES 


20, 30 — au départ ! 


50 à 420 — répétition de tout ce qui suit jusqu’à 
ce qu’on frappe CTRL C 


70 à 100 — attente d’une frappe de touche et cli- 


CURSET X,Y,2:UAIT 1:CURSET X,Y,2 ie 


T$=KEYS$ 


120 — C : le code de la touche 


UNTIL T$@"" 


C=ASCCTS$) 


IF T$="E" 
IF T$="A" 
IF T$="G" 

T$="M" 





140 à 200 — étude du choix 
140, 150 — points éteints ou allumés 


160 — garder les points existants, mais ne pas en 
THEN A=0Q allumer d’autres 

THEN A=1 170 — mise en mémoire de la position actuelle 
THEN A3 180, 190 — vitesse rapide ou lente 

THEN XM=X : YM=Y 

THEN U=S 
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IF T$="L" THEN U=1 
200 IF T$="T" THEN DRAW XM-X, YM-Y, A 


210 : 

22Q IF C>-48 AND C<=55 THEN INK C-48 

230 : REMARQUES 

240 X=X+UX(CC=8)-(CC=9)) 200 — relier le point actuel au point mémorisé (pour 
2580 Y=Y-UxC(C=1B2)-(C=11)) allumer ou effacer un trait) 


260 IF X<12 THEN *x=12 220 — choix de la couleur 
278 IF X>239 THEN X=239 
280 IF Y<@ THEN Y=0 

290 IF Y>199 THEN Y=199 


300 : 310 — nouveau positionnement 


240, 250 — positions horizontale et verticale 


260 à 290 — butées gauche, droite, haute et basse 


310 CURSET %X,Y,A 330 à 400 — tableau de bord mis à jour, sur deux 
320 : lignes en bas de l’écran 

330 CLS 

34@ PRINT'POINTS UITESSE MEMOIRE POSI 

TION" 
350 IF 
360 IF 


A THEN PRINT'ETEINTS "; 

A 
370 IF A 

U 

U 

N 


Q 
1 THEN PRINT'ALLUMES ‘: 
3 THEN PRINT'GARDES ‘; 
1 THEN PRINT'LENTE ‘"; 
=5 THEN PRINT"'RAPIDE "; 
TSPOCIISXMITMESPECSIERST 


380 IF 
390 IF 
400 PRI 
410 

42@ UNTIL C=3 





Mode d’emploi : 


Pour se déplacer, c’est toujours les quatre flèches, mais si vous avez 
choisi la vitesse rapide, le point sautera cinq fois plus vite qu’avant. Pour 
tracer un trait dans n’importe quelle direction placez-vous à une des extré- 
mités, mémorisez votre position en tapant M, déplacez-vous vers l’autre extré- 
mité puis demandez le tracé en tapant T. Si c’est une oblique que vous vou- 
lez, déplacez-vous sans rien tracer en tapant G avant de partir, mais il fau- 
dra penser à rallumer (A) avant de tracer. 


Pour effacer un point tapez E et pour effacer un trait tapez également 
E avant T. 


Si vous voulez changer de couleur, il suffit de taper un des chiffres 0, 
1,... 7 selon le code convenu pour l’Oric. 


Les positions 0 à 11 posent des problèmes quand on fixe la couleur. 
Nous ne les utiliserons pas. 
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ARDOISE MAGIQUE 


Au départ : POINTS ALLUMES, UITESSE LENTE 












Le point 120, 100 
vient d'être 
mémorisé 










POINTS UITESSE MEMOIRE POSITION 
ALLUMES LENTE 120 100 121 190 
























Tapez R 
pour accélérer POINTS 


ALLUMES 


UITESSE 
RAPIDE 


MEMOIRE POSITION 
166 100 166 100 








Tapez E 
pour éteindre 








POINTS UITESSE MEMOIRE POSITION 
ETEINTS RAPIDE 166 100 166 75 











POINTS UITESSE MEMOIRE POSITION 
GARDES  LENTE 128 100 130 75 





Quelques possibilités de tableau de bord 













r.. et G 
pour garder 
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ORGUE À MÉMOIRE 





Il est facile de produire un son en utilisant l’instruction MUSIC : on 
obtient chaque fois un son pur avec une graduation par demi-ton. Il est alors 
tentant de transformer le clavier en pupitre d’orgue, en toute modestie ! 

Nous allons le faire sur deux octaves, à un ton près : 


estate 


la si si do do # 


L]- 
E[ Jr 


K 
[] 
ré 


[er 
© 
[en 
© 
# 


M E- 
C]< 


mi fa # 
espace 
silence 


Au fur et à mesure que vous pianoterez, les notes apparaîtront sur l’écran 
à leur hauteur respective, la plus basse (touche Z) en bas de l’écran. 


1@ CLS:PRINT'UN CLAVIER MUSICAL" 
28 INPUT"UOLUME" 3;U 

30 INPUT"OCTAUE BASSE" ;0B 
4Q DATA 24,X,C,U,B,N,M,A,S;D,F,G;H,9J,K; 
L:G;,W,E,R;,T,Y,U, 1,0,P 
50 DIM NOC3a),0CCS0@) 
6Q@ N=1:0=0B 


78 FOR L=1 TO 26 

RQ READ C$:C=ASCCCS$) 

98 NOCC)=N:OCCC)=0 

100 N=N+I1 

11Q IF N=13 THEN O=0+1:N=1 
12@ NEXT L 

125 





REMARQUES 


20, 30 — introduction du volume et de l’octave 
basse 


40 — les lettres selon leur place sur le clavier de 
bas en haut et de gauche à droite 


50 — réservation pour les fichiers des notes et des 
octaves 


60 — note et octave basses 


70 à 120 — boucle de correspondance entre les 
codes des lettres et les sons 


80 — C : code d’une touche, selon la disposition 
fournie par l’instruction DATA 


90 — mémorisation de la note et de l’octave 
correspondante 


110 — passage à l’octave supérieure 
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REMARQUES 


140 à 190 — répéter ce qui suit jusqu’à ce qu’on 
frappe CTRL C 
REPEAT 


GET T$ 150 — attente d’une frappe de touche 


IF F=39 THEN F=1:CLS 160 — changement de ’’page écran”? 
IF T$>="A" AND T$<="2" THEN GOSUB 170 — si on a frappé une lettre : musique 


FAF#1 


UNTIL T$=CHR$(C3) 
END 


310 à 350 — sous-programme de production d’un 
son 


T=ASCCTS$) 

MUSIC 1,O0CCT),NOCT),U 
H=27-COCCT)-0B)X12-NOCT) 
PLOT F,H,!0" 330 — hauteur de ce son, sur l’écran (en bas : grave, 


en haut : aigu) 
RE TURN 


310 — code de la touche 


320 — le son 


340 — affichage d’un point d’exclamation au bon 
endroit sur l’écran 





Choisissez le volume et l’octave basse : 


UN CLAUIER MUSICAL 
UOLUME®? 4 
OCTAUE BASSE? 3 





et composez ou reproduisez un air connu ! 





VERSION AVEC MEMOIRE 


Pour accroître l’intérêt du jeu tout en gardant un programme simple, 
nous allons mémoriser les hauteurs de chaque note, de façon à ré-écouter 
un air que l’on aura composé au clavier. On pourra fixer la durée. 


18 CLS:PRINT"'CLAUIER MUSICAL À MEMOIRE 


20 INPUT'"UOLUME" ;U 





30 

40 

L,Q 
5@ 

55 

6a 

20 

80 

38 

100 
11a 
120 
125 
130 
135 
140 
150 
160 
170 
1275 
180 
HEN 
1930 
200 
210 
220 
230 
240 
245 
250 
HEN 
255 
260 
270 
275 
280 
230 
300 
310 
320 
330 
340 
350 
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INPUT'"OCTAUE BASSE" ;0B 
DATA 2,X%,C,U,B;,N;,M,A,S;D;F;,G;H,J,K; 
WE R:T YU, 1,0,P 
DIM NOC382),0C(38) 
DIM T$C5, 39) 
N=1 :0=0B 
FOR L=1 TO 26 
READ C$:C=ASC(C$) 
NOCCJ=N:OCCC)=0 
N=N+1 
IF N=13 THEN O=0+1:N=1] 
NEXT L 


M=1 :F<0:CLS 
PLAY 1,0,0,0 
REPEAT 

GET TT$ 


IF TT$="Q" THEN GET TT$:PLOT F,H," 


ELSE F=F+1 
IF F=39 THEN M=M+1:F=1:CLS 
T$CM,FID=TTS 


IF T$CM,F)>="A" AND T$CM,FJ<="2a" T 


GOSUB 300 
UNTIL TT$=CHR$(3) 


MMSNIFF=F 

M=1:F=1 :CLS 

REPEAT 

IF F=39 THEN M=M+1:F=1:CLS 

IF T$CM,F)=" " THEN MUSIC 1,0,1,0 


IF T$CM,F)>="A" AND T$CM,FJ<="2a" T 


GOSUB 380 

WAIT 28 

F=F+1 

UNTIL M=MM AND F=FF 


PLAY 9,0,0,0 
END 


T<ASCCT$CM;F)) 

MUSIC 1,0CCT)J,NOCT)J,U 
H=27-COCCT)-0B)X12-NOCT) 
PLOT .F,H,"0" 

RE TURN 





REMARQUE 


55 — réservation pour les frappes de touches à 
enregistrer 


REMARQUES 
130 — premier morceau 


135 — silence 


150 — attente d’une frappe de touche 


160 — effacement d’une erreur si on raye zéro, 
sinon passage au prochain son 


170 — passage au morceau suivant 
175 — mémorisation de la touche 


180 — production du son si c’est une lettre qui a 
été frappée 


210 à 270 — écoute de l’air enregistré 


210 — MM : le nombre de morceaux, FF : le nom- 
bre de notes du dernier morceau 


220 — premier morceau 


230 à 270 — répéter ce qui suit jusqu’au dernier 
son enregistré 


240 — passage au morceau suivant 
245 — un silence 
250 — un son 


255 — durée de ce son ou de ce silence : 2/10 de 
seconde 


280 — arrêt de la dernière note 


Après le choix du volume et de l’octave basse. 
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CLAVIER MUSICAL À MEMOIRE 


VOLUME? 1 
OCTAVE BASSE? 2 





Vous pouvez pianoter, avec droit à l’erreur (en tapant zéro vous gom- 
mez la fausse note). Mais il n’y a pas de sécurité sur la longueur de l’air enre- 
gistré : ne dépassez pas 5 morceaux. 





La première écoute est gratuite, pour les suivantes il faudra faire GOTO 
220. 

Et si vous le souhaitez vous pouvez même changer le volume et décaler 
l'air entier vers les graves ou les aigüs d’une ou plusieurs octaves, sans reta- 
per les notes : 


PLAY 1,9,0,0 à condition que 
V =8 les notes ne 

OB = 5 sortent pas de 
GOTO 220 l'écran 





Les programmes que nous vous avons donnés avaient comme but de 
vous mettre en route. Vous devez pouvoir maintenant écrire les vôtres et tirer 
profit de ceux que vous trouverez dans le commerce en les comprenant et 
en les modifiant. 


ABS 
AND 
ASC 


ATN 
CALL 
CHAR 


CHR$ 
CIRCLE 
CLEAR 


CLS 
CLOAD 
CONT 


cos 
CURMOV 
CURSET 


CSAVE 
DATA 
DEEK 


DEF FN 
DEF USR 
DIM 


DOKE 
DRAW 
EDIT 
ELSE 
END 
EXP 


LE BASIC DE L'’ORIC : 
LES MOTS RÉSERVÉS 


Voici la liste des instructions Basic utilisées par l’Oric. Nous avons marqué en gras 
celles qui ont été étudiées dans ce livre, car on ne les a pas toutes passées en revue. 
En effet, on a abandonné certaines fonctions mathématiques, ainsi que des instruc- 
tions spécifiques au langage « machine ». Pour tout cela, vous pourrez maintenant 
vous reporter au manuel d'emploi de l’Oric qui est à la fois presque complet (lui 
aussi !) mais malheureusement généralement hermétique. Mais vous savez mainte- 
nant utiliser l’essentiel des commandes, et vous ne serez plus guère désorienté. 

Si vous voulez retrouver la page à laquelle chaque instruction étudiée est dévelop- 
pée, reportez-vous à la liste des « Mots clés » qui la précise. 

Toutes ces commandes Basic sont des « mots réservés ». Vous n'avez pas le droit 
de les employer comme noms de variables, ni même les inclure dans des noms de 
variables. 


EXPLODE LOG RESTORE 
FALSE LORES RETURN 
LPRINT RIGHTS 
FILL 
FN MID$ RND 
FOR... TO MUSIC RUN 
NEW SCRN 
FOR... TO... STEP 
FRE NEXT SGN 
GET NOT SHOOT 
ON... GOSUB SIN 
GOSUB 
GOTO ON... GOTO SOUND 
GRAB OR SPC 
PAPER SQR 
HEXS$ 
HIMEM PATTERN STEP 
HIRES PEEK STOP 
PI STRS$ 
IF... THEN 
IF... THEN... ELSE PING TAB 
INK PLAY TAN 
PLOT TEXT 
INPUT 
INT POINT TROFF 
KEY$ POKE TRON 
POP TRUE 
LEFTS$ 
LEN PRINT UNTIL 
LET PULL USR 
READ VAL 
LIST 
LLIST RELEASE WAIT 
LN REM ZAP 


REPEAT 
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LE CODE ASCII 


ASCII signifie « American Code for Information Interchange », soit code améri- 
cain pour l’échange d’informations. Chaque frappe, simple ou combinée, trouve sa 
traduction dans ce code. Voici ce code, dans sa normalisation officielle, c'est-à-dire 
sans les caractères graphiques personnels à l’Oric. 


CODIFICATION AÀ,S C.I.I. 

Espace 64 96 
65 92 
66 38 
67 993 
68 100 
693 101 
70 102 
?1 103 
?2 104 
23 105 
74 106 
25 10? 
?6 108 
22 109 

78 110 
23 111 
80 112 
81 113 
82 114 
83 115 
84 116 
85 112 
86 118 
87 119 
88 120 
893 121 
30 122 
91 123 
92 124 
33 125 
34 126 
95 127 
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LES CARACTÈRES GRAPHIQUES DE L’ORIC 





Lorsqu'on choisit le jeu de caractères numéro 1, certains codes (32 à 95) fournissent 
des caractères utiles pour créer des images graphiques basse résolution. Voici ces 64 


caractères, agrandis afin de situer les zones d’encre par rapport au fond. 


{couleur du fond) 


Un 0 représente 
un point éteint 
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MOTS CLÉS 


En marge du texte, nous avons encadré des « mots clés » importants. La liste vous 
en a été fournie, chapitre par chapitre, au début de chacun d’eux. Les voici mainte- 
nant par ordre alphabétique, avec renvoi à la ou les pages où ils sont définis. 


A 

Accord musical, 222 
Adjonction d’une ligne, 46 
Affectation, 40 
Alimentation, 8 

AND, 145 

Annulation d’une ligne, 34 
Attributs, 147 

AZERTY, 10 


B 

Barres de couleur, 105 

Basic, 12, 13 

Bataille galactique, 85 

Boucles, 73, 80, 82 

Branchement de l’Oric—1, 7 
Branchement conditionnel, 145 
Branchement inconditionnel, 54, 145 
Byte, 14 


C 

Canaux des sons, 217 

CAPS, 16 

Caractère, 14, 39 

Caractères double hauteur, 148 
Caractères graphiques, 115 

Carré en LORES 6, 110 
Cellules mémoires, 14 

Cercles à géométrie variable, 139 
Chaînes de caractères, 39, 42 
Chaîne vide, 42 

CHAR, 140 

Chargement d’un programme, 21 
Chiffre 9 et lettre O, 13 

CHRS, 56 

CHRS(8), 117 

CHRS$(9), 117 

CIRCLE, 137 

Clignotement, 148 

CLOAD, 21 

CLS, 54 

Code ASCII, 56 

Concaténation de chaînes, 43 
Connexion d’un magnétophone, 19 
Constante, 40 

Constante chaîne, 40 

Constante numérique, 40 
CONT, 55, 116 


Couleurs, 78 
Couleurs avec PLOT, 103 
CSAVE, 25 
CSAVE AUTO), 51 
CTRL, 16 
CTRL/A, 58 
CTRL/C, 53, 116 
CTRL/D, 148 
CTRL/F, 43 
CTRL/G, 82 
CTRL/H, 38 
CTRL/I, 38 
CTRL/J, 38 
CTRL/K, 38 
CTRL/L, 38 
CTRL/M, 38 
CTRL/N, 44 
CTRL/Q, 111 
CTRL/T, 16 
CTRL/X, 34 
CURMOV, 135 
CURSET, 135 
Curseur, 11 


D 

DATA, 121, 122 

Décomptage avec FOR... TO., 78 
DEEK , 151 

Défilé des couleurs, 123 

DEL, 11 

Démarrage à chaud, 24 
Démarrage à froid, 24 
Démarrage automatique, 29 
DIM, 127 

Division, 36 

DOKE, 151 

Double hauteur, 207 
Double-point, 76 

DRAW, 137 

Duplication d’instructions, 109 


E 

Ecran haute résolution, 135 
Edit, 59 

Effacement arrière, 11 
Elévation à puissance, 37 
Effacement de la mémoire, 49 
Effacement de l’écran, 38 
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Effacement d’une ligne, 44 
Effacement programmé de l’écran, 54 
ELSE, 145 

Emboîtage de boucles, 80 

END), 112 

Entiers, 132 

Enveloppe des sons, 218 

Error, 11 

Etoiles, 111 

EXPLODE, 83 


F 

FILL, 141 

Format de l’écran, 16 
FOR... TO, 73 


G 

GET, 226 

GOSUB, 113 

GOTO, 52 

Graphique basse résolution, 105 
Grille graphique basse résolution, 102 
Guillemets, 31 


H 
Haute résolution, 133, 135 
HIRES, 106, 133 


I 

IF... THEN, 144 

IF... THEN... ELSE, 200 
INK, 78 

INPUT, 50 

Instructions multiples, 76 
INT, 132 


K 
KEYS$, 146 


L 

Langages, 12 

Lecture d’une touche, 146 
LEFT$, 67 

LEN, 67 

Lignes de couleurs aléatoires, 142 
Lignes doublées, 148 
Ligne logique, 15 

Lignée physique, 24 

LIST, 47 

Listage partiel, 57 
LORES, 106 

LORES 6, 106 

LORES 1, 114 


M 

Majuscules, 16 
Mémoires centrales, 13 
Mémoires externes, 14 
Mémoires internes, 13 
Mémoires mortes, 14 
Mémoires, 14, 49 
Mémoires périphériques, 14 
Mémoires vives, 14 
Messages d’erreur, 49 
Microprocesseur, 13 


Microsoft, 13 

MID$, 68 

Minuscules, 16 

Mise en service, 9 
Mode direct, 31, 35 
Mode programmé, 47 
Mode texte, 101 
Modes graphiques, 101 
Modification d’une ligne, 58 
Mots réservés, 42 

Mot transformé, 129 
Mouvement, 116 
Multiplication, 36 
MUSIC, 213 


N 

NEXT, 73 

NEW, 49 

Nombres aléatoires, 83 
Noms de variables, 71 
NOT, 145 

Notation scientifique, 94 
Notes musicales, 214 
Numérotation des lignes, 45 


O 

Octet, 14 

Opérateurs relationnels, 145 

OR, 145 

Organigramme, 52 
Organigramme de FOR... TO, 74 


P 

PAPER, 78 

PATTERN, 139 

Pas dans FOR... TO, 76 
PEEK, 152 

Période avec SOUND, 224 
PING, 82 

PLAY, 213, 217 

PLOT, 102 

POINT, 140 

Points d’affichage, 135 

Point décimal, 36 

Point d’interrogation pour PRINT, 34 
Point-virgule, 35 

POKE, 152 

Pour sauter une ligne, 95 
PRINT, 32 

Prise Péritel, 8 

Programme de conversion, 50 
Programme principal, 112 


Q 
QWERTY, 10 


R 

Racine carrée, 37 

RAM, 21 

READ, 14 

REDO FROM START, 53 
Règles avec les boucles, 82 
Ré-initialisation, 23 

REM, 79 

Remarques, 78 
Remplacement d’une ligne, 48 
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REPEAT UNTIL, 144 
Répétition des touches, 12 
RESET, 24 

RETURN, 17, 32, 113, 130 
RIGHTS, 67 

RND, 83 

RND(9), 86 

RND(-N), 86 

Rôle des guillemets, 35 
ROM, 14 

RUN, 46 

RUN numéro de ligne, 111 


S 

Sauter une ligne, 55 
Sauvegarde d’un programme, 25 
SCRN, 129 

SGN, 124 

SHIFT, 12 

SHOOT, 83 

Sonorisation des touches, 43 
Sons, 82 

SOUND, 213, 224 
Sous-programme, 112 

SQR, 37 

STEP, 76 

STR$, 69 

STOP, 112 
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Suppression d’une ligne, 48 
Suppression du curseur, 111 
Symbole d’affectation (=), 40 
Symbole de concaténation, 43 
Symbole dollar, 39 

Syntaxe, 35 

SYNTAX ERROR, 12 


T 

Temporisation, 59 
TEXT, 101, 134, 135 
Traits en LORES 9, 108 


V 

VAL, 69 

Variable, 40 

Variable chaîne, 40 
Variable numérique, 40 
Virgule dans un PRINT, 37 
Virgule décimale, 36 
Vitesse lente, 22 

Volatilité des mémoires, 14 


W 

WAIT, 59 
Z 

ZAP, 83 


Zéro et lettre O, 36 
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